Delphi-Quellcode:
var n,n2:integer;
begin
n:=listbox1.itemindex;
n2:=-1;
repeat
n2:=n2+1;
form2.memo1.lines.add(listbox1.items[n2]);
until n2=n;
//memo ende
und sowas noch mit der radiobox
hoffe es funzt so, habe mir nur sehr schnell diesen text ausgedacht!