diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 1f294e75..10f2f4b1 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -164,6 +164,7 @@ procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
 begin
   ApplicationEvents.Activate;
   Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
+  Caption := Application.Title;
 
   JvNavigationPane.StyleManager := dmBase.StyleManager;
   dmBase.OnThemeChange := Self.OnThemeChange;
@@ -187,6 +188,7 @@ begin
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
 
   Application.Title := ATitulo;
+  Caption := Application.Title;
 
   if dmConexion.HayConexion then 
     TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL