Clientsocket bağlantısında sorun

[fatalspy]

S.a

delphi 7 de yapmış oldğum programda clientsocket bağlntısında sorun yaşıyorum. "Asynchronous socket error 10049." bu hatayı alıyorum errorcode:=0; yazdığım zaman bu hata çıkmıyor ancak socket 1 kere bağlantı yapıyor 2. bağlantı yapılamıyor mesela şöyle bir kod:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ClientSocket1.Active=False Then begin
clientsocket1.Host:='http://www.google.com';
clientsocket1.Active:=true;
end;

procedure TForm1.Clientsocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
socket.Close;
end;

Yardımlarınızı bekliyorum şimdiden teşekkürler..

[askarad]

port nosu nedir? eğer port noyu modemin ayarlarında nat kısmında iç bir ipye yonlendirmemişsen bu hatayı alabilmen mumkun..

[unicorn64]

örnek olsun diye mi google yazdın yoksa gerçekten öyle mi kullanıyorsun.
eğer host olarak google kullanıyorsan bunu ne için yapıyorsun merak ettim doğrusu...