procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Sender.ClassName); ShowMessage(TControl(Sender).Name); end;