ok habs endlich gelöst. habs auf nem anderen weg geschafft.
Delphi-Quellcode:
var
Q: integer;
begin
for Q := listbox1.Items.Count - 1 downto 0 do
begin
if listbox1.Items[listbox1.Items.Count-1]='' then
listbox1.Items.Delete(listbox1.Items.Count-1);
end;
end;
und dafür hab ich 4 nächte gebraucht
Grüße aus Hamburg,
Rhodan