Ошибка 11004 и 11001

[alexprey]

Народ подскажите как исправить эту ошибку???
Я через TserverSocket получаю html запрос из оперы, и затем этот запрос переправляю на yandex.ru:80. Изменив в запросе поле host на yandex.ru. В самом запросе GET / HTTP/1.1. Выдает ошибку 11004, если поставить mail.ru то 11001
11001 - хост не известен
11004 - Затребованное имя допустимо и оно найдено в базе данных,
но для имени отсутствуют связанные с ним данные, которые были разрешены для него

Помогите исправить эту ошибку

constructor TClSocket.Create(msg: string; psocket: TCustomWinSocket; ip: string);
begin
 inherited Create(nil);
 FMsg:= msg;
 ParentSocket:= psocket;
 Host:= ip;
 Port:= 80;
 onError:= on_Error;
 onRead:= on_Read;
 onDisconnect:= on_Disconnect;
 onConnect:= on_Connect;
 _id:= SocketCount;
 inc(SocketCount);
 SetLength(sockets,SocketCount);
 Sockets[_id]:= Self;
 Active:= true;
end;

destructor TClSocket.Destroy;
begin
 dec(SocketCount);
 Sockets[_id]:= Sockets[SocketCount];
 Sockets[_id]._id:= _id;
 //parentSocket:= nil;
 //inherited Destroy;
end;

procedure TClSocket.on_Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
 ShowMessage('connect');
 Self.Socket.SendText(FMsg);
end;

procedure TClSocket.on_Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 ShowMessage('disconnect');
 Destroy;
end;

procedure TClSocket.on_Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 ShowMessage('error '+IntToStr(ErrorCode)+' '+FMsg);
 ParentSocket.Close;
 //ErrorCode:= 0;
end;

procedure TClSocket.on_Read(Sender: TObject; Socket: TCustomWinSocket);
 var buf: array of byte;
     i: integer;
begin
 ShowMessage('read');
 i:= Socket.ReceiveLength;
 SetLength(buf,i+1);
 Socket.ReceiveBuf(buf,i);
 ParentSocket.SendBuf(buf,i);
 Destroy;
end;