Unnötige Zeilenumbrücke löschen?

[mo_greene]

Delphi-Quellcode:

repeat
  if GeheimtextMmo.Lines.Count > 1 then
    if GeheimtextMmo.Lines.Strings[GeheimtextMmo.Lines.Count] = '' then
      GeheimtextMmo.Lines.Delete(Pred(GeheimtextMmo.Lines.Count))
  else
    break;
until GeheimtextMmo.Lines.Strings[GeheimtextMmo.Lines.Count] [b]<> ''[/b];

Irgendwie merkt er nicht, dass er bei <> '' die Schleife beenden soll...woran liegt das? Die repeat...until-Schleife läuft unendlich weiter, dabei soll er aufhören, wenn die Zeile wieder etwas enthält.