Du lädst sie in ein Memo und löschst die leeren Zeilen:
Delphi-Quellcode:
Memo.Lines.LoadFromFile(DeineDatei);
i := 0;
while i < Memo.Lines.Count do
begin
if Memo[i] = '' then
Memo.Lines.Delete[i]
else
Inc(i);
end;
SPäter musst du es nur speichern und es ist von Leerzeilen bereinigt.