Поля объекта.... Опции

[Vardes]

Как можно исправить проблему???Не могу обратится к полю объекта....
Имеется два модуля: Главный, зависящий от формы и присоединённый к нему...Во втором модуле я описываю обект и его поля, а в главном с помощью процедуры Form1.Create, отвожу память под поля...так вот теперь я не могу обратиться к полям объекта через 2-ой модуль...(может немного запутано...поясняю)

Код

unit main;
......
uses prog;
......
var
Layer:TLayer;

procedure TForm1.FormCreate(Sender: TObject);
begin
Layer:=TLayer.Create;
end;
procedure A;
begin
Do;
end;
end.

Код

unit prog;
type
TLayer:class
w:real
end;
var Layer:TLayer
......
......
.......
Procedure Do;
begin
Layer.w:=0.5; //здесь и возникает ошибка...можно сделать так Procedure DO(Layer:TLayer), ну а если у меня классов много и все в процедуре, мне так их все и переписывать???