请教大虾：自定义tooltip的使用方法,如何设置显示和消失延时和设置字体颜色？急！！ (100分)

用tooltip:THintWindow;
已实现tip的显示，但不知如何设置显示和消失延时和设置字体颜色？那位大虾有这方面的
例子请不吝赐教。不胜感激！

TMyHintWindow = class(THintWindow)
constructor Create(AOwner: TComponent); override;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Custom Hint Font
HintWindowClass := TMyHintWindow;
Application.ShowHint := True;
//设置停留多久出现HINT.
application.HintPause := 5000;
//设置多久后消失
application.HintHidePause := 3000;
end;

constructor TMyHintWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do
begin
Name := 'Arial';
Size := Size + 5;
Style := [fsBold];
end;
Canvas.Brush.Color := clwhite;
end;

接受答案了.