Проблема с ClientSocket

[Shouldercannon]

Есть

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;

if EChatIP.Text <> '' then begin
if EChatPort.Text <> '' then begin
ClientSocket1:=ClientSocket1.Create(nil);
ClientSocket1.Port:=1001;
ClientSocket1.Host:=EChatIP.Text;
ClientSocket1.OnRead:=ClientSocket1Read;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText(DateTimeToStr(Now));
end;
end;
end;

Если долгое время (минут 40-50) не удается отослать на сервер

DateTimeToStr(Now)

то появляется ошибка следующего содержания:
Windows socket error: Невозможно выполнить операцию на сокете, т.к. буфер слишком мал или очередь

переполнена (10055), on API 'connect'

Из-за этой ошибки при выходе из программы система ненадолго зависает.
Как избежать этой ошибки (Windows socket error).

[mihali4]

Нарушение правил раздела (п.1)