begin
   memo1.lines.add(edit1.Text);
   if listbox1.Itemindex>=0
   then memo1.Lines.Add(listbox1.ltems[listbox1.Itemindex]);
end
那有问题怎么执行不了呢

begin
   memo1.lines.add(edit1.Text);
   if listbox1.Itemindex>=0  then
   begin
   memo1.Lines.Add(listbox1.ltems[listbox1.Itemindex]);
end;
end;
end.

说明listbox1.Itemindex的值是-1，或者你这个函数是在什么地方执行的，没见你贴出来

谢谢 现在好了