[NumLock]

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  i: Integer;

begin
  Application.Initialize;
  for i:=1 to 6 do
  begin
    Application.CreateForm(TForm1, Form1);
    Form1.Left:=i*32;
    Form1.Show;
  end;
  Application.Run;
end.