displaying long TListbox items as hints

[j0x]

i have this code

Code: [Select]

procedure TfrmMain.lstVideoMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
   lstIndex: integer;
begin
   lstIndex:= lstVideo.GetIndexAtXY(X,Y);
   if (lstIndex >=0) and (lstIndex <= lstVideo.Items.Count) then begin
       lstVideo.Hint:= lstVideo.Items[lstIndex];
   end else begin
       lstVideo.Hint:='';
   end;
end;            

and every time i move the mouse on the next item on the TListbox (lstVideo) it does not show the hint intended for it, what it shows is the previous lstVideo item hint, the tooltip's hint is stuck at that previous item, so how can i fix this

thanks for any responses

EDIT:

and im getting this warning each time i compile

Code: [Select]

umain.pas(40,49) Hint: Parameter "Shift" not usedi dont even know what is the use of shift or how to implement it on the code above so any help on this too will be great