按着shift键对dbgrid进行多条记录选择的问题(50分)

可以用sendmessage,想dbgrid 发键盘信息,
按下shift键,同时按下button1
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to Table1.Recordcount-1 do
sendmessage(DbGRID1.handle,WM_KEYDOWN,VK_DOWN,1);
end;

在DBGrid的Click事件中，先GotoBookMark,然后使用一个循环到你后面选定的记录，期间
对路过的每一条记录都加入BookMarkList.

为什么不用第三方控件？woll2woll公司的InfoPower 2000控件包中有一个wwDbGrid的控件
很好用。公司网址http://www.woll2woll.com/。
一定记着给分呀！