Anzeige bringt fatalen Fehler

[marabu]

Probier mal so:

Delphi-Quellcode:

procedure TBoardForm.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  ReceivedLn: String;
  i, j: Integer;
  ReceivedKind: String;
  ReceivedInfo: String;
begin
  RecievedLn := ClientSocket.ReceiveLn;
  i := Pos('#', ReceivedLn);
  ReceivedKind := Copy(ReceivedLn, 1, Pred(i));
  if ReceivedKind = 'Info') then
  begin
    ReceivedInfo := Copy(ReceivedLn, Succ(i), Length(ReceivedKind) - i);
    if ReceivedInfo = 'NewGame'
      then ShowMessage('Test!');
      // CheckInfo(ReceivedInfo);
  end;
end;

Grüße vom marabu