Symulacja "dymków'

Witam !.
Czy zna ktoś procedurę lub procedury która powodowałaby wyswietlenie wszystkich "dymków" w kontrolkach umieszczonych na formie bez konieczności najeżdżania myszką.
Będę wdzięczny za pomoc.
Pozdrawiam.

Zrób przeszukanie po komponentach i np rysuj prostokąty z tekstem na współrzędnych komponentu zawierającego tekst z właściwości hint.

Jeżeli potrzebujesz znać tylko wszystkie hinty a nie je fizycznie widzieć to możesz zapisać je do
pliku, tak jak w kodzie poniżej albo żywając tej samej procedury ale zmiast zapisu do pliku zrobić
wyświetlanie na Canvasie Textu podpowiedzi komponentów. Innego pomyslu nie mam za bardzo.

var
  I : integer;
  Str : string;
  SL : TStringList;
begin
  SL := TStringList.Create;
  for I := 0 to ComponentCount - 1 do
    begin
    Str := TControl(FindComponent(Components[I].Name)).Hint;
      if Str <> '' then
      begin
      SL.Add(Components[I].Name + ' (' + Str + ')');
      end;
    end;
   if SL.Count > 0 then
   begin
     SL.SaveToFile('D:\hinty.txt');
   end;
 SL.Free;
end;

A z wypisywaniem na Canvasie w stylu zbliżonym do standardowych hintów czyli żółte użyj kodu:

var
  I : integer;
  Str : string;
begin
  for I := 0 to ComponentCount - 1 do
    begin
    Str := TControl(FindComponent(Components[I].Name)).Hint;
      if Str <> '' then
      begin
      Canvas.Brush.Color := clYellow;
      Canvas.TextOut(TControl(FindComponent(Components[I].Name)).Left,
      TControl(FindComponent(Components[I].Name)).Top - 20, Str);
      end;
    end;
end;

Dzięki wielkie!
O to mi chodziło. Jesteś wielki "olesio".
Pozdrowienia dla wszyskich forumowiczów.
Temat do zamknięcia.