[Asinkrit]

Пропиши функцию к форме в private, и все ок будет.

Код:

  TForm1 = class(TForm)
    ...
  private
    procedure ButtonClick(Sender: TObject);
  ..
  end;

Сама функция:

Код:

  procedure TForm1.ButtonClick(Sender: TObject);
  begin
  if (Sender is TButton) then
    begin
    ...
    end;
  end;