Probleme mit Server-Client-Programmierung (Indy10)

[inherited]

Du kannst entweder ein Command, gefolgt von einem Trennzeichen und dann die Nachricht senden, oder du schickst es einzeln Hintereinander.
Fall eins, Client:

Delphi-Quellcode:

procedure TForm1.NachrichtButtonClick(Sender: TObject);
begin
  if IdTCPClient1.Connected then
  begin
    with IdTCPClient1 do
      IOHandler.WriteLn('MSG:'+Edit1.text);
  end;
end;

Fall eins, Server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Line, Command, Param : String;
begin
  Line := AContext.Connection.IOHandler.ReadLn; 
  Command:= Copy(Line, 1, Pos(':', Line)-1);
  Param:= Copy(Line, Pos(':', Line)+1, Length(Line));         
  if Command = 'MSG' then
    MessageDlg(Param, mtInformation,[mbOK],0);
end;