uses
.....;

type
TForm1 = class(TForm)
FontDialog1: TFontDialog;
..................
procedure FontDialog1Apply(Sender: TObject; Wnd: HWND);
...
private
public
sets:record
hidefromtaskbar:boolean;
showtrayalways:boolean;
end;
{придется каждую переменную отдельно:
showtrayalways:boolean;
hidefromtaskbar:boolean;}
end;

var
Form1: TForm1;