Usando o objeto sender

With Sender as TButton do
begin
...
end; {Para chamadas a partir de objetos diferentes:}


if Sender is TButton then
with Sender as TButton do
begin
...
end;
else if Sender is TLabel then
with Sender as TButton do
begin
...
end;
end; {if}