Konstruktor direkt aufrufen

[Tubos]

Hallo!

Der Benutzer meines Programmes soll die Schriftart und -farbe der Hints selbst wählen können.
Dazu benutze ich folgenden Code:

Delphi-Quellcode:

Type
  TMyHintWindow = Class (THintWindow)
   Constructor Create (AOwner: TComponent) ; override ;
  end;

und

Delphi-Quellcode:

Constructor TMyHintWindow.Create(AOwner:TComponent) ; 
begin
  Inherited Create (AOwner);
  Canvas.Font:=form1.fontdialog1.font;
 end;

Das funktioniert.
Beim Programmstart muss ich dann folgendes machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
{ ... }
 HintWindowClass := TMyHintWindow;
  Application.ShowHint := false;
 Application.ShowHint := True;
{ ... }

damit das übernommen wird.
Was mache ich, wenn ich das während des Programmablaufes noch ändern will?
nochmal dasselbe aufrufen, nützt nichts.
Kann man den Konstruktor direkt aufrufen?
Wenn ja, was muss ich als AOwner übergeben?

Thx;
Tubos