Как удалить пустую строку?

[MyLastHit]

Здравствуйте, подскажите пожалуйста, как удалить пустую строку в файле?
К примеру в файле написано:
аааа

вввв
А нужно чтобы было:
аааа
вввв

Не хочется чтото цикл писать... может попроще можно?

[BOBAH13]

#13#10 - перенос строки и каретки

[MyLastHit]

а что нибудь типа:

for i:=0 to (memo1.lines.count-1) do
if length(memo1.lines[i]) then memo1.lines[i].delete

Можно сделать?

[Аватар]

Как вариант: загрузить в TStringList (LoadFromFile). в нем в цикле удалить пустые строки и обратно в файл (SaveToFile)

[MyLastHit]

Так вот, как удалить пустую строку из мемо хотябы? Просто в голове вертится цикл в цикле, но бошку сломаю пока напишу... Как попроще в Memo удалить lines[i]?

Финал
Нашарил процедуру вопрос закрыт.
Кому интересно:

procedure DelStroki(Memo:tmemo);
const
Stroka='';
var
i,i2:integer;
begin
i2:=0;
for i:=0 to memo.Lines.Count -1 do begin
if memo.Lines.Strings[i2] = stroka then begin
memo.Lines.Delete(i2);
i2:=i2-1;
end;
i2:=i2+1;
end;end;

[Аватар]

for i:=Memo1.Lines.Count-1 downto  0 do
  if Trim(Memo1.Lines.Strings[i])='' then Memo1.Lines.Delete(i);