SocketServer / -Client: Übertragung eines Strings im Record

[p0w3r5tr34m3r]

Hallo DP,
momentan arbeite ich an einem Projekt welches über Sockets Daten an einen Server schickt. Unteranderem auch Strings variabler Länge... Wobei wir schon bei meiner Frage sind: Gibt es einen schöneren Weg, Strings in Records zu versenden, als diesen?

Delphi-Quellcode:

TMyRecord = record
  angreifer, verteidiger: string[50];
  waffe_a, waffe_b: string[40];
  bericht: array of char;
end;

var
  Form1: TForm1;
  kb: TMyRecord;

procedure TForm1.Send;
var
  t: string;
begin
  // [...]
  t := memo1.Text;
  setlength(kb.bericht, length(memo1.text));
  strpcopy(kb.bericht, t); // <--- Das is der einzigste weg, wie ich es übertragen bekomme
  // [...]
end;

Mit freundlichen Grüßen,
p0w3r5tr34m3r