String wird nicht übers Netzwerk gesendet

[24jb]

Hallo,

habe folgendes Problem mit einem kleinen Programm, vielleicht könnt ihr mir helfen.

Eigendlich soll nur ien einfacher Text ('Hallo'), über eine Netzwerkverbindung geschickt werden.

Er geht aber sprichwörtlich ohne Fehlermeldung ins Nivada.

Alles andere (Verbindung erstellen und überprüfuen etc. funktioniert einwandfrei.)

Wo ist der Fehler?

Bin am verzweifeln (3, 5 STunden daran rumprobiert)

Hier der Code

Delphi-Quellcode:

[b]ServerCode[/b]

procedure TForm1.FormCreate(Sender: TObject; Socket: TCustomWinSocket);
begin
      //Server wird geöffnet
        ServerSocket1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Begin
       //Die Verbindung wird beendet
   ServerSocket1.Close;
end;

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var nachricht: String;
begin
     //Der Text kommt in die Varibale nachricht
     nachricht :=Socket.ReceiveText;

        //Text wird dem memofeld hinzugefügt
        Memo1.Lines.Add(nachricht);
end;


[b]ClientCode[/b]

procedure TForm1.FormCreate(Sender: TObject);
begin
         // Verbindung wird hergestellt
          ClientSocket1.Open;
end;

procedure TForm1.sendenClick(Sender: TObject;  Socket: TCustomWinSocket);
begin
          //Nachricht wird gesendet
        ClientSocket1.Socket.SendText('Hallo');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        // Verbindung wird hergestellt
          ClientSocket1.close;
end;