diff --git a/Source/Servidor/Utiles/uServerAppUtils.pas b/Source/Servidor/Utiles/uServerAppUtils.pas
index 73321be4..bb5f1509 100644
--- a/Source/Servidor/Utiles/uServerAppUtils.pas
+++ b/Source/Servidor/Utiles/uServerAppUtils.pas
@@ -15,15 +15,16 @@ uses
 
 procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
 begin
-  with fServerForm.TrayIcon1 do
-  begin
-    BalloonTitle := 'FactuGES (Servidor)';
-    BalloonHint := AMensaje;
-    BalloonTimeout := 2000; // 2000ms => 2seg
-    BalloonFlags := ABalloonIcon;
-    Hint := 'FactuGES (Servidor)' + #10#13 + AMensaje;
-    ShowBalloonHint;
-  end;
+  if Assigned(fServerForm) then
+    with fServerForm.TrayIcon1 do
+    begin
+      BalloonTitle := 'FactuGES (Servidor)';
+      BalloonHint := AMensaje;
+      BalloonTimeout := 2000; // 2000ms => 2seg
+      BalloonFlags := ABalloonIcon;
+      Hint := 'FactuGES (Servidor)' + #10#13 + AMensaje;
+      ShowBalloonHint;
+    end;
 end;