[HowTo] Einen Chat programmieren?

[citybreaker]

Ok, habe ein Deutsches Tutorial beu Delphi Source gefunden und
dierekt mal los getippt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPServer.Active := true;
end;

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
begin
  with AThread.Connection do begin
    WriteLn('Hallo Welt');
    Disconnect;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TCPClient do begin
    Connect;
    try
     ListBox1.Items.Add(ReadLn);
    finally
     Disconnect;
    end;
  end;
end;

Sobald ich nun auf den Button klicke wird mir etwas mitgeteilt.
"Sockert Error #11001
Host not found"

Muss ich bei host etwas bestimmtes angeben?