Listbox使用的问题(50分)

我想实现在Listbox控件上移动鼠标,鼠标移动到哪行,就选中哪行,我使用下面的方法.当没有滚动条时可以,有滚动条时就不行了.请富翁们帮忙看看,有没有其它方法!!!先谢了.
procedure TFrmYC.LstGSMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
var
H: Integer;
begin
LstGS.SetFocus;
H:=y div LstGS.ItemHeight;
if h>LstGS.Count-1 then
exit else
LstGS.ItemIndex:=H;
end;

procedure TFrmYC.LstGSMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
var
H: Integer;
F: Integer;
begin
LstGS.SetFocus;
F:=LstGS.TopIndex;
H:=y div LstGS.ItemHeight;
if h>LstGS.Count-1 then
exit else
LstGS.ItemIndex:=H+F;
end;

接受答案了.