[Verevkin]

Код:

procedure TForm1.N3Click(Sender: TObject);
begin
    with Sender as TComponent do
      ShowMessage(Name); //Text := 'Hello!';
end;