[Antuan]

Perfecto me funciona bien.
Muchas gracias
Como estoy aprendiendo y buscando cosas, y experimentando.
¿Se podria pasar el codigo del boton a una funcion?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   with ClientSocket1.Socket do begin
      SendText('GET http://www.villademostoles.da.ru/index.html HTTP/1.1'+#13#10);
      SendText('Accept-Language: es'+#13#10);
      SendText('Accept-Encoding: gzip, deflate'+#13#10);
      SendText('User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'+#13#10);
      SendText('Host:www.villademostoles.da.ru'+#13#10);
      SendText(''+#13#10);
   end;
end;