[lmikle]

Ну дык отлавливай эксепшн:

Код:

try
  //Здесь пытаемся подключиться
except
  on e : exception do
    begin
      Memo1.Lines.Add('Ошибка!!!');
      Memo1.Lines.Add(e.message);
    end;
end;