[Delphi] ort! w listBox

Szukałem, ale <ort>NIE MA </ort>na forum, jak zrobić żeby po najechaniu myszą na wpis w <ort>listboxsie </ort>został on automatycznie zaznaczony, bez klikania na niego

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 // tutaj dzialasz :) pobierasz wysokosc Itema i juz ;)
end;

A może jakiś kawałek kodziku, byłbym wdzięczny

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var pos:integer;
begin
pos:=ListBox1.ItemAtPos(Point(X,Y), TRUE);
if (pos>=0) and (pos<>ListBox1.ItemIndex) then
  ListBox1.ItemIndex:=pos;
end;

A wjaki sposób przy każdorazowej zmianie zaznaczenia wpisu pokazywał się hint, w obecnym momencie za pierwszym razie pokazuje się, ale pÓźniej przy zmianie pozycji, poruszając się tylko po listboxie, hinty się już nie pokazują