type
TCustomHint = class (THintWindow)
public
constructor Create(AOwner: TComponent); override;
end; 

constructor TCustomHint.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do               // Именно так, а не пpосто Font!
begin
Name := 'Times New Roman Cyr';
Style := [fsBold, fsItalic];
Size :=  40 ;
end;
end;

procedure TForm1.FormCreate(Sender: TObject); // Это может быть любой
begin                                         // обpаботчик
HintWindowClass := TMyHint;      // Устанавливаем глобальную пеpеменную
Application.ShowHint := false;   // Application.FHintWindow.Free
Application.ShowHint := true;    // Application.FHintWindow.Create
end;