StringGrid Zeilen löschen

[SaFu]

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i,x : Integer;
begin
try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   
    for x :=1 to Pred(sl1.Count)-1 de
     begin
      if ((sl1[x]) = '') then
       begin
        sl1.Delete(x);
       end;
     end;
   sl2.add(sl1.Text);
  end;
  sl2.SaveToFile ('C:\test.txt');
Finally
  sl2.Free;
  Sl1.Free;
end;
Button6.Click;
end;

wenn ich die schleife rückwerts zählen lasse bekomme ich einen Fehler aber es funzt so auch net