ктото может знает что это за ошибка?

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

try
 
  // код обращения к серверу
 
except
  // просто выходим из обработчика, если поймали это исключение
  on EIdSocketError do Exit;
 
end; // try

procedure TForm1.Timer3Timer(Sender: TObject);
var
tL: TStringList;
s,pp,oo: String;
Response: TStringStream;
begin
pp:=edit4.Text;
oo:=Edit5.Text;
tL := TStringList.Create;
Response := TStringStream.Create('');
tL.Add('viewer_id='+pp);      //строчка текста что будем отправлять на сервак...
tL.Add('user_id='+pp);
tL.Add('method=status');
tL.Add('auth='+oo);
 
try
Memo1.lines.Text := IdHTTP1.Post('http://gorodok.me/game/game.php',tL);
   finally
  begin
   tL.Free;
   Response.free;
end;
end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
tL: TStringList;
s,pp,oo: String;
Response: TStringStream;
begin
pp:=edit4.Text;
oo:=Edit5.Text;
tL := TStringList.Create;
Response := TStringStream.Create('');
tL.Add('viewer_id='+pp);      //строчка текста что будем отправлять на сервак...
tL.Add('user_id='+pp);
tL.Add('method=status');
tL.Add('auth='+oo);
 
try
Memo1.lines.Text := IdHTTP1.Post('http://gorodok.me/game/game.php',tL);
   tL.Free;
   Response.free;
except
  // просто выходим из обработчика, если поймали это исключение
  on EIdSocketError do Exit;
 
end;
end;