[Yurk@]

я это дело обходил так:
для Form1

Код:

uses uForm2;
public
StartKey : integeer;
...

procedure TForm1.N2Click(Sender: TObject);
var 
chForm: TForm;
begin
StartKey :=1;
chForm := TForm.Create(Application);
end;

для Form2

Код:

uses uForm1
...
procedure TForm2.Create(Sender:TObject);
begin
case Form1.StartKey of
1 : begin Top := 6; Left := 300; end; 
2 : begin ... end;
end;
end;