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

谢谢 现在好了