From c2d041f7cca9bbdec6412af57cf251ce5cf6e6dd Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 12 Mar 2008 17:52:08 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@338
 0c75b7a4-871f-7646-8a2f-f78d34cc349f

---
 Source/Servidor/Utiles/uServerAppUtils.pas | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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;