[DGJ]

помогите пожалуйста, вроде сделал как у вас написано, но
[Error] aWave.dpr(139): Undeclared identifier: 'MyClick'

Код:

var
form1:tform;
z:integer;
Button1: TButton;
ColorDialog1: TColorDialog;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Edit1: TEdit;
  procedure MyClick(Sender: TObject);
end;

..................................................................................

procedure TForm1.MyClick(Sender: TObject);
begin
showmessage('1');
end;

procedure TAIMP2Visual.DisplayClick(X: Integer; Y: Integer); stdcall;
begin
Form1:= TForm.Create(Application);
 Form1.Caption:= 'Íîâîå ñîîáùåíèå';
 form1.Show;
 form1.Height:=200;
 form1.Width:=400;
 form1.Top:=10;
 form1.Left:=10;
 button1:=TButton.Create (form1);
        button1.Caption := 'button1';
        button1.Top     := 100;
        button1.Left    := 100;
        button1.Width   := 80;
        button1.Height  := 25;
        button1.Parent  := form1;
        button1.OnClick := MyClick;
end;