Sender - objeto

{O Sender representa o nome do objeto que está chamando tal evento. Adicione 3 botões e modifique seus nomes ( Name ) : A, B, C. No evento onClick do botão A }
procedure TForm1.AClick(Sender: TObject);
begin
if ( Sender = A ) then
ShowMessage('Botão A');
if ( Sender = B ) then
ShowMessage('Botão B');
if ( Sender = C ) then
ShowMessage('Botão C');
end; {depois direcione o evento onClick dos outros botões B e C para o evento onClick do botão A, execute e saia clicando }