AlwaysOnTop 처리하기

procedure TForm1.FormShow(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,
               HWND_TOPMOST,
               0, 0, 0, 0,
               SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

// on the calling form . . .
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm1, Form1);
  Form1.ShowModal;
  Form1.Release;
end;