Futás közben generálok egy gombot és ha rákattanok akkor írjon ki valamit. Elvileg meg lennék, de amikor rákattanok nem történik semmi. Mi az az egyszerű hiba ami miatt nem megy? Forráskód lent.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,stdctrls;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure gombclick(sender:tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.gombClick(Sender: Tobject);

begin

showmessage('ok');

end;

procedure TForm1.FormCreate(Sender:tobject);

begin

with tbutton.Create(self) do begin

parent:=form1;

top:=10;

left:=10;

name:='gomb';

end;

end;

end.