奇怪问题（listbox)？给你200分！

Question

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
   var
  APoint: TPoint;
  Index: integer;
  TheObject: TControl;
  i:integer;
begin
     APoint.X := X;
  APoint.Y := Y;
  Index := ListBox1.ItemAtPos(APoint, True);
  for i:=0 to listbox1.Count-1 do
    begin
    if listbox1.ItemIndex=i then
  listbox1.Hint:=listbox1.Items.Strings[index];
   end;
end;
以上的程序：
listbox的showint已为true.
我在listbox的Items的选项总长度大于listbox的宽度。我想当鼠标移到Items上的一个选项时，能把Items的选项总长度全部显示出来，但是却要当鼠标点击时才能全部显示出来。