Forms Delphi

implementation
{$R *.DFM}
Type
THintConFont = Class (THintWindow)
Constructor Create (AOwner: TComponent); override;
end;
Constructor THintConFont.Create (AOwner: TComponent);
begin
Inherited
Create (Aowner);
Canvas.Font.Name := 'Times New Roman';
Canvas.Font.Size := 18;
end;