chat funktioniert nicht übers inet =(

[alanblack]

Hallo Leute,

ich habe es doch noch geschafft mir einen kleine chat zu schreiben ..
ich würd aber damit auch gerne übers inet chatten können mit anderen leuten die das prog benutzen.
Wenn ich den Server geöffnet habe und nochmal die exe öffne und auf client gehe und die ip (vom inet die ich auf www.meine-ip.de.vu auslese) eintippe verbindet er nicht .. weiß einer wieso?

Hier einmal der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Server
 form1.Caption := 'Server';
ServerSocket1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// client
form1.Caption := 'Client';
ClientSocket1.Host := edit2.Text;
ClientSocket1.open;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if form1.caption='Server' then
begin
Memo1.lines.add(edit1.text);
serversocket1.Socket.Connections[0].SendText(edit1.text);
edit1.text := '';
end;

if form1.caption='Client' then
begin
Memo1.lines.add(edit1.text);
clientsocket1.Socket.SendText(edit1.text);
edit1.text := '';
end; 

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Client:' + socket.receivetext);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Server:' + socket.receivetext);
end;

end.

Vielen Dank schonmal im vorraus

mfg alanblack