Delphi 7 TCP IP Peer Verbindung

[clownxx]

Hallo,

ich verwende die Komponenten TIDTCPServer. Ich möchte nun, dass mir ein TCP Client Bytes schicken kann. Dazu listened der Server auf einem bestimmten Port. Der Client Connected zu dem Server, das klappt auch. Dann schreibt er mir ein Paar Bytes in die Verbindung. Ich behandele dies im Event OnExecute des Servers wie folgt:

Delphi-Quellcode:

procedure TMyForm.TCPServerExecute(AThread: TIdPeerThread);
  var
  msg: string;
  i: integer;
  ABuffer: TByteDynArray;
begin
  msg := AThread.Connection.CurrentReadBuffer;

  SetLength(ABuffer, length(msg));

  newStr := '';
  for i := 1 to length(msg) do
  begin
    ABuffer[i] := ord(msg[i]);
  end;

  receiveByteDataTCP(ABuffer);
end;

Setze ich einen Haltepunkt auf die erste Zeile msg := ... kommt er dort auch an. Jede Zeile darunter kann ich zum Debuggen nie mit einem Haltepunkt anspringen. Dadurch kann ich auch leider nichts in der Methode receiveByteDataTCP debuggen. Liegt das an dem Thread AThread? Wie kann ich das Trotzdem Debuggen? Ist evtl auch etwas an dem grundsätzlichen Handling des Servers falsch oder sollte ich in Delphi 7 andere Komponenten verwenden?

Danke schonmal für eure Hilfe!