[TotKtoNado]

Сообщение от v1s2222

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;

но у меня варка ругаеться
[Error] Unit1.pas(28): Undeclared identifier: 'TButton'