[zip000]

Сообщение от <<D>>

А второй пример:

Код:

Procedure proc1;
Procedure proc2;
Procedure proc3;
var
  variable: array[1..50] of TMyTyps;   // место_2
  var1 : integer;                      // место_2

implementation

сдесь переменная пренадлежит определённой форме.
Пример:

Код:

procedure TForm1.OnClick(Sender:TObject);
begin
var1:=0;// или
variable[0].integ:=0;
variable[0].move:=true;
end;

Товарисч, причем здесь форма??? Не форме, а ЮНИТУ!!!! Не путайте.