[Ultras]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Forms;

var
  SH, SW: integer;
  MainForm: TForm;
begin
  FreeConsole; // освободицца от консоли, оставить только форму, если нужно - закоментить
  SH := Screen.Height;
  SW := Screen.Width;

  MainForm := TForm.Create(nil);
  with MainForm do
  try
    BorderStyle := bsNone; // отключаем "бордер"
    Height := 390;
    Width := 390;
    Left := (SW - Width) div 2;
    Top := (SH - Height) div 2;
    Caption := 'Моя программа';
    ShowModal;
  finally
    Free;
  end;

end.

P.S.: можно конечно пойти по другому пути, и создать форму через WinAPI, но это уже сложнее...