Zeile aus Stringlist löschen, wie optimieren?

[user0815]

Delphi-Quellcode:

      i := 0;
      while i < Stringliste.Count do
      if trim(Stringliste[i]) = ''
       then Stringliste.Delete(i)
        else inc(i);

wobei ich keine Ahnung habe ob eine Prüfung auf trim oder length schneller ist...