Einen weiteren Fehler habe ich inzwischen gefunden:
Delphi-Quellcode:
procedure GetMsg(RE: TRichEdit; MainForm: TForm; St: TStream);
{ ... }
if Kennung = 'T' then begin
St.ReadBuffer(I, SizeOf(I));
[color=#ff0000] SetLength(S, I);[/color]
St.ReadBuffer(S[1], I);
RE.Lines.Add(S);
Melden(MainForm);
{ ... }
Allerdings, weil ich die hier ausgeführten Zeilen ins Programm geschrieben habe. Dort funktioniert es zwar, nütz mir aber nichts!