private
fFont: Tfont;
procedure SetFont(const Value: Tfont);
...
published
MyFont: Tfont read fFont write SetFont;
end;

procedure SetFont(const Value: Tfont);
begin
ffont:=value;
end;