uses

  Windows;

type

  TfrmLogin = class(TForm)

 end;

implementation

{$R *.dfm}

procedure TfrmLogin.FormCreate(Sender: TObject);

begin

     SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));

end;