[newnata]

Код:

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
   max:integer;
begin
form2.left:=max+20;
for i:=0 to ControlCount-1 do
if (controls[i] is Tform2) then
(components[i] as Tform2).
left:=max+20;

form2.top:=max+20;
for i:=0 to ControlCount-1 do
if (controls[i] is Tform2) then
(controls[i] as Tform2).
top:=max+20;
end;

Admin: Пользуемся тегами!

надо просто задать max чтобы окно открывалась и были видны все на этой форме объекты