Frage zu Pascal script

[citybreaker]

Hallo!

Ich versuche über Pascal Script einfach mal so aus testzwecken eine
Form mit Button zu erzeugen. (klappt soweit)

Nun soll der Button ne Funktion haben. Das klappt jetzt schon irgendwie nicht mehr.

Delphi-Quellcode:

// Button procedure
procedure BtnClick(Sender: TObject);
begin
  // mach was
end;

program test;
var frm: TForm;
    btn: TButton;
begin

  // Form erzeugen
  Frm := TForm.Create(self);
  Frm.Caption := 'Test Window';
  Frm.Name := 'Frm1';
  Frm.Position := poDesktopCenter;
  // Button1
  btn := TButton.Create(self);
  with Btn do begin
    Caption := 'Klick Mich';
    Left := 10;
    Height := 23;
    Name := 'Btn1';
    Parent := Frm; 
    Width := 75;
    Top := 10;
    OnClick(BtnClick);
  end;
  Frm.Show;
end.

Jetzt sagt der mir immer.
Unnamed 'BEGIN expected'