diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 27bcb3dc..fbfdc829 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -292,7 +292,7 @@ begin
   begin
     ShowHourglassCursor;
     try
-      ShowSplashForm;
+      //ShowSplashForm;
       CargarModulos;
       DoMainForm;
     finally
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 3f050d94..e5191ae1 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -6,9 +6,9 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uSplash, uFactuGES_App, StdCtrls;
 
-    procedure Initialize;
-    procedure Run;
-    procedure Terminate;
+procedure Initialize;
+procedure Run;
+procedure Terminate;
 
 implementation
 
@@ -63,9 +63,6 @@ end;
 procedure Run;
 begin
   AppFactuGES.Run;
-  repeat
-    //Nada
-  until AppFactuGES.Terminated;
 end;
 
 procedure Terminate;
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 320bbe90..1f294e75 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -118,7 +118,6 @@ type
     procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
   protected
     function GetWorkPanel : TWinControl;
-    procedure CreateParams(var Params: TCreateParams); override;
   public
     function IsShortcut(var Message: TWMKey): Boolean; override;
     procedure OnWorkPanelChanged(AEditor : ICustomEditor);
@@ -164,7 +163,7 @@ end;
 procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
 begin
   ApplicationEvents.Activate;
-  Caption := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
+  Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
 
   JvNavigationPane.StyleManager := dmBase.StyleManager;
   dmBase.OnThemeChange := Self.OnThemeChange;
@@ -187,7 +186,7 @@ begin
   if Assigned(AppFactuGES.EmpresaActiva) then
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
 
-  Caption := ATitulo;
+  Application.Title := ATitulo;
 
   if dmConexion.HayConexion then 
     TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
@@ -459,7 +458,7 @@ end;
 
 procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
 begin
-  //No tocar, sirve para recuperar el foco el formulario principal cuando
+  // No tocar, sirve para recuperar el foco el formulario principal cuando
   // tenemos varios formularios hijos abiertos a la vez.
   DefaultHandler(Msg);
 end;
@@ -492,17 +491,6 @@ begin
   end;
 end;
 
-procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
-begin
-  // ˇˇˇFallo en Delphi 2007!!!
-  // Cambio los paramátros para obligar a que aparezca el icono en la barra de tareas.
-  inherited CreateParams(Params);
-  with Params do begin
-    ExStyle := ExStyle or WS_EX_APPWINDOW;
-    WndParent := GetDesktopwindow;
-  end;
-end;
-
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
 {  fActualizacion := TfActualizacion.Create(Self);