[NumLock]

Код:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Add1: TMenuItem;
    Windows1: TMenuItem;
    N1: TMenuItem;
    AddwithCheck1: TMenuItem;
    procedure Add1Click(Sender: TObject);
    procedure AddwithCheck1Click(Sender: TObject);

uses Unit2;

procedure TForm1.Add1Click(Sender: TObject);
begin
  with TForm2.Create(Application) do
  begin
    WindowState:=wsMaximized;
    Caption:=IntToStr(GetTickCount);
    Show;
  end;
end;

procedure TForm1.AddwithCheck1Click(Sender: TObject);
begin
  if Application.FindComponent('Form2')<>nil then Exit;
  with TForm2.Create(Application) do
  begin
    WindowState:=wsMaximized;
    Caption:=IntToStr(GetTickCount);
    Show;
  end;
end;

http://data.cod.ru/126495