[v1s2222]

Код:

private
    procedure ClException(Sender: TObject; Error: Exception);

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  If(Error.ClassName = 'ESocketError') then begin 
    Memo.Lines.Add('[' + TimeToStr(Time) + '] ' + Error.Message);
  end
  else
    Application.ShowException(Error); // ошибки не сокета
end;
...
FormCreate:
  Application.OnException := ClException;

Это даст возможность ВСЕ не нужные ошибки не выводить, или вывести (как в примере), в мемо.