Создание овальньного Hint'a!

[Ferz-2009]

Доброго времени суток всем!!!
для замены Hint я пользуюсь вот такой процедурой:

procedure MyShowHint(var HintStr: string; var CanShow: Boolean;
  var HintInfo: THintInfo);

procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean;
  var HintInfo: THintInfo);
var
        i : integer;
begin
        for i := 0 to Application.ComponentCount - 1 do
        if Application.Components[i] is THintWindow then
                with THintWindow(Application.Components[i]).canvas  do
                        begin
                                Font.Name:= 'Comic Sans MS';
                                Font.Size:= 10;
                                Font.Style:= [fsBold];
                                  HintInfo.HintColor:= clGreen;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
Begin
application.OnShowHint:=myshowhint;

В данной процедуре я меняю цвет подсказки и всё что связано со шрифтом! А можно ли изменить в данной же процедуре форму Hint'a(сделать подсказку овальной)?
помогите пожалуйста с решением данного вопроса?

P.S. на счёт того что создать форму и показывать её, можете не писать, я и сам это знаю! И сторонними skin-компонентами я не пользуюсь!

[Utkin]

Я конечно не специалист по красявостям, но сам встречал круглые хинты. Принцип работы такой же как и непрямуогольных форм. Вам нужно использовать регионы и натянуть это дело на хинт. Я пробовал сторонние разработки и могу сказать, что многие из них не предусматривают многих мелочей из-за которых при отображении хинтов иногда проявляются различные артефакты (например хинт не всегда корректно стирается).