UrlDownloadToFile - Problem

[moritz]

Ok, ich hab das ganze mal versucht. Aber ich bekomme keine Antwort. Was mache ich falsch?
(Ich habe eine Variable Client vom Typ TClientSocket)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Client:=TCLientSocket.Create(Form1);
    Client.OnConnect:=OnSocketConnect;
    Client.OnError:=OnSocketError;
    Client.OnDisconnect:=OnSocketDisconnect;
  Client.OnRead:=OnSocketRead;
  Client.Port:=80;
  Client.Host:='google.de';
  Client.Open;
end;

procedure TForm1.OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Erfolgreich verbunden');
end;

procedure TForm1.OnSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Verbindung wurde getrennt');
end;

procedure TForm1.OnSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Folgender Text wurde empfangen');
  showmessage(Socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  showmessage('GET /index.html HTTP/1.1'+#13#10+'Host: google.de');
  Client.Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: google.de');
end;

procedure TForm1.OnSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  showmessage('Ein Fehler ist aufgetreten');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Client.Active then showmessage('Client ist aktiv');
end;

Onz,