Как объявить глобальный экземпляр собственного класса?

[pastuhdima]

Хотел бы узнать как объявить экземпляр. Надеюсь на Вашу помощь.

type
  TMove = class
    x:real;
    y:real;
    vx:real;
    vy:real;
    m:real;
  end;
  end;

var
  Form1: TForm1;
  body:tmove;

[Zer0]

в коде в нужном месте просто вставьте
Body:=TMove.Create; (например на событие OnShow у формы)

[pastuhdima]

пишет что TMove неизвестный идентификатор

[Utkin]

Ну покажи ошибку в оригинале. А да, конструктор-то написать не забыл ?

[Zer0]

а можно весь код увидеть?

[pastuhdima]

unit BBT;

interface

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

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
type
  TMove = class
    x:real;
    y:real;
    vx:real;
    vy:real;
    m:real;
  end;
  end;

var
  Form1: TForm1;
  body:tmove;
implementation


{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
begin
paintbox1.canvas.Brush.Color:=clBlack;
paintbox1.canvas.FillRect(paintbox1 .canvas.ClipRect);

end;

procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.canvas.Brush.Color:=clBlack;
paintbox1.canvas.FillRect(paintbox1 .canvas.ClipRect);
end;

end.