[[duilioisola]]

supongo que podrías poner el código que hace la consulta al servidor en un bloque TRY..EXCEPT.
Según el tipo de excepción darás un mensaje u otro.
Intenta producir el error (desconectando el cable de red, por ejemplo) y mira cual es el valor de E.ClassName

Código Delphi [-]
try
   // Hago consulta al sercidor
   ConsultaTurno;
except
   on e:Exception do
   begin
      // Mensaje de error propio
      ShowMessage('Se ha producido un error. Se cerrará la aplicación');
      // Clase de excepciçon que se ha producido
      ShowMessage('Exception class name = '+E.ClassName);
      // Mensaje original de la execpción
      ShowMessage('Exception message = '+E.Message);
      // Cierro la aplciación
      Close;
   end;
end;