ChatProgg mit Indy Internetkompatibel machen

[Äfan]

So, ich habe jetzt einen gemacht, wenn ich aber verbinden will, kommt ein Socket Error # 10060 Ich weiß net warum...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Client.Host := Edit1.Text;
  Client.Connect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    memo1.Lines.Add('>>'+edit1.Text);
    Client.WriteLn(edit1.Text);
  except
    memo1.Lines.Add('Verbindung unterbrochen')
  end;
    edit2.Clear;
end;

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var ms: string;
begin
  ms:=athread.Connection.ReadLn('',5000);
  memo1.Lines.Add(ms);
end;