procedure TForm1.BtnClick(Sender: TObject);
var
p: PPropInfo;
f: TFont;
begin
f := TFont.Create;
{Setup the font properties}
f.Name := 'Arial';
p := GetPropInfo(Sender.ClassInfo, 'Font');
if Assigned(p) then
SetOrdProp(Sender, p, Integer(f));
f.Free;
end;