Hilfe bei Stringlist.delete

[user0815]

Delphi-Quellcode:

i := 0;

  if sl <> nil then
  begin
    while i < sl.Count do
    if length(trim(sl[i])) < 2
     then sl.Delete(i)
      else inc(i);
  end;