Problem beim Senden mit SendBuf (TFont, TColor)

[faeX]

Delphi-Quellcode:

TBefehl = record
  TagFont    : TFont;
  TagString  : String;
  TagColor   : TColor;
  TagInteger : Integer
end;

Delphi-Quellcode:

procedure senden;
var
  Befehl : TBefehl;
begin
  Befehl.TagFont := Form1.font;
  Befehl.TagString := '';
  Befehl.TagColor := clBlack;
  Befehl.TagInteger := 0;
  Form1.Client.Socket.SendBuf(Befehl,sizeOf(Befehl));
end;

Dann kommt eine Fehlermeldung.
Wie kann ich dieses Problem lösen?