procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (listbox1.ItemIndex:=-1)then
    messagedlg('请选择需要移动的项目',mtcustom,[mbok],0)
  else
    begin
      listbox2.Items .add(listbox1.Items .string[listbox1.ItemIndex]);
        listbox1.items.Delete (listbox1.itemindex);
        if (listbox1.Count <>0) then
          listbox1.Selected[0]:=true;
     end;
end;

出现几次了
不 明白
在第一个if处出现的问题是
type of expression must be BOOLAN
 描述必须是布尔型是不?
怎么改呢???
要定义吗?
高手指点