Listbox使用的问题!已经没有多少分了(20分)

有三个Listbox,在一个上面按鼠标左键,把选中项添加到Listbox1中,按鼠标右键把选中的添加到Listbox2中如下,
procedure TFrmYC.LstGSMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
S: String;
begin
s:=LstGS.Items.Strings[LstGS.ItemIndex];
if GetAsyncKeyState(VK_LButton)<>0 then
//左键
MyIni.ReadSection(s,Listbox1.Items);
if GetAsyncKeyState(VK_RButton)<>0 then
//右键
MyIni.ReadSection(s,Listbox2.Items);
end;
有时会出现按左键时,Listbox1,Listbox2都会添加,不知为什么?不知有没有遇到这种情况的朋友

判断左键 if Button=mbLeft then
判断右键 if Button=mbRight then

左键和右键都会触发 MouseDown 事件，既然左键是 Mouse，当然右键也是 Mouse。
解决方法参照地质灾害。