Работа в Memo

[pusik]

На Форме есть много кнопок, мне нужно при нажатии любой из кнопок.. В поле МЕМО отображать информацию о последней нажатой кнопке!?

[Sparkman]

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure AnyButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
...
...
procedure TForm1.AnyButtonClick(Sender: TObject);
begin
     Memo1.Lines.Add(TButton(Sender).Name);
end;
...
...
procedure TForm1.Button4Click(Sender: TObject);
begin
     AnyButtonClick(Sender);
end;

[pusik]

Спасибо))) Только место Name, нужно указать Caption)