Работа с Hint'ами

[MyLastHit]

Нафиг мне хинт над хинтом
Нужно так чтобы, при наведении кпримеру на лабел, вместо стандартного хинта был этот

[Impuls1989]

В общем так. Я когда-то давно делал подобное на C++ билдере (не без помощи коллег с данного форумуа). У меня была проблема другого рода: мне нужно было отконвертить код delphi в код C++.
Вот delphi-овый код
Вот Ссылка на мою тему
А вот и конечный исходник:

unit HintX;
interface
uses
  Windows, Messages, Controls,Graphics;
type
  TIconHintX = class(THintWindow)
  protected
    procedure Paint; override;
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string;
    AData: Pointer): TRect; override;
end;

implementation
uses Forms;

{ TIconHintX }

function TIconHintX.CalcHintRect(MaxWidth: Integer;
const AHint: string; AData: Pointer): TRect;
begin
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);
  Result.Right := (Length(AHint) * 5) + Application.Icon.Width;
  Result.Bottom := (Application.Icon.Height) * 2;
end;

procedure TIconHintX.Paint;
const
  MARGIN = 5;
var bmp: TBitmap;
begin
  inherited;
  bmp:= TBitmap.Create;
  bmp.LoadfromFile('E:\1.bmp');
  Canvas.Draw(MARGIN, MARGIN * 5, bmp);
  SendMessage(Handle, WM_NCPAINT, 0, 0);
  bmp.Free;
end;

initialization
  HintWindowClass := TIconHintX;

end.

end.


.......


procedure TForm1.FormCreate(Sender: TObject); 
begin 
  HintWindowClass := TIconHintX; 
  Application.ShowHint := False; 
  Application.ShowHint := True; 
end;