Captura de pag web mediante sockets

[willy]

Mi problema es que no consigo hacer funcionar el siguiente código:

Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
with cs.Socket do begin
SendText('GET http://www.borland.com/products/index.html HTTP/1.1'+#13#10);
SendText('Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, */*'+#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.borland.com'+#13#10);
SendText(''+#13#10);
end;
end;

La verdad es que soy bastante novato y muy posiblemente no sepa cuales son los componentes adecuados que tengo que introducir.

Un saludo