Delphi. Мышь. Жалуется на "TForm1.Button1Click"

[hon]

Смотрю самоучитель.
На Button1 сделана процедура.

procedure TForm1.Button1Click(Sender: TObject);
begin
     MessageBeep(0);
end;

Жалоба Delphi на слове Click.

[Sparkman]

Кидаете на форму Button, затем на нем щелкаете два раза и среда автоматически сгенерирует код для нажатия кнопки. Либо, если мы не ищем сложных путей (хотя это тоже самое, только вруную), в декларативной части формы объявляем процедуру клика

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

, затем в Implementation пишем содержимое этой процедуры

procedure TForm1.Button1Click(Sender: TObject);
begin
     MessageBeep(0);
end;

.. и для того чтобы кнопка ожила, в инспекторе объектов (object inspector) событию (events) кнопки OnClick присваиваем процедуру Button1Click.

[hon]

Вот обновленная программа (вся):

unit FastPrj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     MessageBeep(0);
     Screen.Cursor:=crHourgLass;
     Memo1.Clear;
     for i:=1 to High(integer)-1 do begin
         p:=Ptr(i);
         s:=TForm1.MethodName(p);
         if s<>'' then Memo1.Lines.add(Format('%d %s',[i, s]));
     end;
     Screen.Cursor:=crDefault;
     end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
s : String;
p : Pointer;
begin
     MessageBeep(0);
     Screen.Cursor:=crHourgLass;
     Memo1.Clear;
     for i:=1 to High(integer)-1 do begin
         p:=Ptr(i);
         s:=TForm1.MethodName(p);
         if s<>'' then Memo1.Lines.add(Format('%d %s',[i, s]));
     end;
     Screen.Cursor:=crDefault;
     end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i : Integer;
s : String;
p : Pointer;
begin
     MessageBeep(0);
     Screen.Cursor:=crHourgLass;
     Memo1.Clear;
     for i:=1 to High(integer)-1 do begin
         p:=Ptr(i);
         s:=TForm1.MethodName(p);
         if s<>'' then Memo1.Lines.add(Format('%d %s',[i, s]));
     end;
     Screen.Cursor:=crDefault;
     end;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Edit1.Text:= 'Hello World!';
procedure TForm1.Button1Click(Sender: TObject);
begin
     MessageBeep(0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
     MessageBeep(0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
     MessageBeep(0);
end;

end.

Но почему-то вместо окошка, открывается на десятую долю секунды консольное окно и закрывается. Почему? Компилятор ошибок не нашел. Компилятор: Borland Delphi 7.0 :( (без смайлика)