Bei OnMouseOver Hilfe zu Eintrag in TChecklistBox anzeigen?

[winx]

Hallo Pfoto,

swoeit war ich doch auch schon ,allerdings zeigts dann immer, wenn ich auf die Control gehe die Infobox an,
ich möchte aber nur wenn man über ein Objekt geht.

Und dann hab ichs mir so gedacht:

Delphi-Quellcode:

procedure Tmainform.objectlistMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var index : integer;
    val : string;
begin

  index := objectlist.ItemAtPos(Point(x,y),true);

  if (index > -1) then begin

    objectlist.ShowHint := true;
    try
      if (objectlist.Items[objectlist.ItemIndex] = objectlist.Items[objectlist.ItemAtPos(Point(X, Y), True)]) then
        objectlist.Hint := objectlist.Items[index]
      else
        objectList.ShowHint := false;

    finally
      objectlist.ShowHint := false;
    end;

  end;

end;

aber klappt eben nich...bin mir nur nich im klaren, wieso?