FTP client

Hi,

Could you translate this pseudo delphi into real Delphi source code, please?

procedure getWebFile;

var
  Socket: TSocket;
  s: string;
begin
  Socket := TSocket.Create('www.altavista.de', 80);
  Socket.WriteLn('GET /textonly.html');
  while not Socket.EOF do
    begin
      s := Socket.ReadLine;
      Memo1.Lines.Add(s);
    end;
end;

Note: I don't want to use any THTTP component or related. I want to do the
socket communication.

Thanks in advance.

Roland