[Radik_Assasin]

Пытался написать прогу по книге, но в одном месте выдает ошибку. вот текст программы. Дойдя до выделенного текста компилятор пишет что это Необъявленный идентификатор. Помогите пожалуйста в чем моя ошибка?

Код:

unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    MyFirstButton: TButton;
    procedure MyFirstButtonClick(Sender: TObject);
    procedure MyFirstButtonMouseMove(Sender: TObject;
      Shift: TShiftState; x, y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}
procedure TMainForm.MyFirstButtonClick(Sender: TObject);
begin
   Close;
end;
procedure MyFirstButtonMouseMove(Sender: TObject;
      Shift: TShiftState; x, y: Integer);
  var
    index:integer;
  begin
    index:=random(4);
    case index of
    
     0: MyFirstButton.Left:=MyFirstButton.Left+MyFirstButton.Width;
     1: MyFirstButton.Left:=MyFirstButton.Left-MyFirstButton.Width;
     2: MyFirstButton.Top:=MyFirstButton.Top+MyFirstButton.Height;
     3: MyFirstButton.Top:=MyFirstButton.Top-MyFirstButton.Height;
  end;

  if MyFirstButton.Left<0 then
     MyFirstButton.Left:=0;
     
  if (MyFirstButton.Left+MyFirstButton.Width)> MainForm.Width then
     MyFirstButton.Left:=MainForm.Width-MyFirstButton.Width;

   if MyFirstButton.Top<0 then
      MyFirstButton.Top:=0;

   if (MyFirstButton.Top+MyFirstButton.Height)> MainForm.Height then
     MyFirstButton.Top:=MainForm.Height-MyFirstButton.Height;

end.

Админ: Пользуемся тегами для оформления кода!

[Assistant]

MyFirstButt on это опечатка? (пробел)

[Radik_Assasin]

да это опечатка

[Leon-Z]

Вместо
procedure MyFirstButtonMouseMove(Sender: TObject;
Shift: TShiftState; x, y: Integer);
надо написать
procedure TMainForm.MyFirstButtonMouseMove(Sender: TObject;
Shift: TShiftState; x, y: Integer);

[Radik_Assasin]

Спасибо большое!

[Assistant]

Leon-Z, глас-алмас ))