[Delphi] TForm

Witam [cya]
Mając kilka form zdarza się czasami, że potrzeba ustawić właściwości komponentów (np. Top, Width, Height itp.) na tych formach. Chciałbym więc zamiast w każdej formie z osobna deklarować procedure ustawiającą te właściwości (identyczną dla wszystkich form) stworzyć jedną dla wszystkich.

np.
Procedure UstawWlasciwosci(NazwaFormy : ????);
Begin
With NazwaFormy Do
Begin
Top := 10;
Width := 30;
....
....
End;//With
End; { koniec procedury }

PYTANIE : Czy to można zrobić, jak, co mam ewentualnie wpisać w miejsce ???? jeśli ta procedura miałaby sens.
Dzięki i pozdrawiam [cya]

function UstawWlasciwosci(forma: TForm):boolean;
begin

with forma do
begin
Left := 1;
Top := 2;
Width := 3;
Height := 4;
end;

Result:=true;
end;