uses
  Windows;


procedure TformLogin.FormCreate(Sender: TObject);

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