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
ConsultaTurno;
except
on e:Exception do
begin
ShowMessage('Se ha producido un error. Se cerrará la aplicación');
ShowMessage('Exception class name = '+E.ClassName);
ShowMessage('Exception message = '+E.Message);
Close;
end;
end;