Font/Hintergrundfarbe vom Objekt

[EWeiss]

Vielleicht kann mir dabei jemand helfen..
Ich übergebe den Font jetzt direkt.

CK.Font := Form1.CheckBox1.Font;

Wie bekomme ich denn nun den Namen des Font auf LogFont.lfFaceName umgelegt ?
LogFont.lfFaceName := Font.Name;

verträgt sich nicht.
[DCC Fehler] uCheckboxHook.pas(415): E2010 Inkompatible Typen: 'Array' und 'TFontName'

EDIT:
Hat sich erledigt.
StrPCopy(LogFont.lfFaceName, Font.Name);

gruss