>>35
procedure TForm1.Button1Click(Sender: TObject);
var New:TForm1;
begin
Application.CreateForm(TForm1, New);
New.Left:=Left+10;
New.Show;
end;