listbox的问题

Question

//**********************右移一个**********************************************//
procedure TEIMainForm.rightButClick(Sender: TObject);
begin
  if ListBox3.ItemIndex=-1 then
  begin
    MessageDlg('请选择要操作的数据表',mtInformation,[mbOK],0);
    exit;
  end;
  ListBox4.Items.Insert(ListBox4.Count,ListBox3.Items.Strings[ListBox3.ItemIndex]);
  ListBox3.Items.Delete(ListBox3.ItemIndex);
end;//*********************右移所有***********************************************//
procedure TEIMainForm.rightAllButClick(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to ListBox3.Count-1 do
  begin
    ListBox4.Items.Insert(ListBox4.Count,ListBox3.Items.Strings[0]);
    ListBox3.Items.Delete(0);
  end;
end;//***********************左移一个*********************************************//
procedure TEIMainForm.LeftButClick(Sender: TObject);
begin
  if ListBox4.ItemIndex=-1 then
  begin
    MessageDlg('请选择要操作的数据表',mtInformation,[mbOK],0);
    exit;
  end;
  ListBox3.Items.Insert(ListBox3.Count,ListBox4.Items.Strings[ListBox4.ItemIndex]);
  ListBox4.Items.Delete(ListBox4.ItemIndex);
end;//**********************左移所有**********************************************//
procedure TEIMainForm.LeftAllButClick(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to ListBox4.Count-1 do
  begin
    ListBox3.Items.Insert(ListBox3.Count,ListBox4.Items.Strings[0]);
    ListBox4.Items.Delete(0);
  end;
end;

Answer 1

listbox1.delete(listbox1.itemindex);
listbox2.add(listbox1.strings[listbox1.itemindex])