Indy - TCP Client verbindet nicht zu Server

[tail]

Ich will einen Chat Programmieren. Jetzt scheitert es aber schon beim Verbinden
Ich habe einen Clienten und Server. Der Server ist gestartet und läuft. Und ich habe einen Clienten. Der soll zum Server verbinden, das tut aber irgentwie nicht.

Meine Codes:
Server starten:

Delphi-Quellcode:

if IdTCPServer1.Active = False then
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  SpinEdit1.Enabled := False;
  IdTCPServer1.DefaultPort := SpinEdit1.Value;
  IdTCPServer1.Active := True;
  Label2.Caption := 'Online';
  Label2.Font.Color := clGreen;
  Button1.Enabled := True;
  Button1.Caption := 'Server Stoppen';
end
else
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  IdTCPServer1.Active := False;
  Label2.Caption := 'Offline';
  Label2.Font.Color := clRed;
  SpinEdit1.Enabled := True;
  Button1.Enabled := True;
  Button1.Caption := 'Server Starten';     
end;

Client verbinden:

Delphi-Quellcode:

if IdTCPClient1.Connected = False then
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  SpinEdit1.Enabled := False;
  IdTCPClient1.Connect(Edit1.Text, SpinEdit1.Value);
  if IdTCPClient1.Connected = True then
  begin
    Label2.Caption := 'Online';
    Label2.Font.Color := clGreen;
    Button1.Caption := 'Trennen';
  end
  else
  begin
    Button1.Caption := 'Verbinden';
    ShowMessage('Es ist ein Fehler beim Verbinden aufgetreten.');
  end;
  Button1.Enabled := True;

end
else
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  IdTCPClient1.Disconnect;
  Label2.Caption := 'Offline';
  Label2.Font.Color := clRed;
  SpinEdit1.Enabled := True;
  Button1.Enabled := True;
  Button1.Caption := 'Verbinden';     
end;