Передача параметра процедуре FormCreate

[Grandistok]

Доброго времени суток комрады. Возник вопрос следующего характера:
В приложении создается модальная форма вот таким образом

SelectDoc := TSelectDoc.Create(Self);
try
  SelectDoc.ShowModal;
finally
  SelectDoc.Free;
end;

В форме SelectDoc при ее создании в процедуре FormCreate генерируются элементы которые будет на форме

procedure TSelectDoc.FormCreate(Sender: TObject);
var
Znach:integer;
Pan:TPanel;
Lbl:TLabel;
begin
If Znach<>0 then
   Pan:=TPanel.Create(Self);
else
   Lbl:=TLabel.Creae(Self);
end;

Собственно вопрос: Каким образом можно передать параметыр Znach из главной формы приложения в создоваемую SelectDoc не используя глобальные переменные?

[evg_m]

использовать свойства (property znach) или методы (setznach)

TSelectDoc=class(TForm)
....
public
  procedure SetZnach(r: integer);
  property znach: integer write SetZnach;
end;

procedure TSelectDoc.setZnach(r: integer);
begin
If Znach<>0 then
   Pan:=TPanel.Create(Self);
else
   Lbl:=TLabel.Creae(Self);
end;

использование

f:=TSelectDoc.Create(Self);
f.znach:=n; //использование свойства
f.setZnach(n); //использование метода
f.showmodal;

[mutabor]

Или переопределить конструктор формы
constructor Create(Sender: TObject; Znach: integer);
А в теле конструктора вызывайте Create предков, с помощью inherited.

[evg_m]

Форма то у него модальная.

а разве у модальной формы не может быть свойств и методов.

SelectDoc := TSelectDoc.Create(Self);
try
  Selectdoc.znach:=n;
  SelectDoc.ShowModal;
finally
  SelectDoc.Free;
end;