leere Zeilen in Textdateien erkennen und löschen?

[Blackeagle]

Code:

var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.loadfromfile(Deinedatei);
    i := 0;
    while i < sl.Count do
    begin
      if sl[i] = '' then
        sl.Delete[i]     //   Zeile 463
      else
        Inc(i);   
    end;
  finally
    sl.free;
  end;
end;

[Error] mEagle6.pas(463): Not enough actual parameters