StringGrid Zeilen löschen

[SaFu]

Ok da hab Ihr beide recht

müsste das nicht so gehen

Delphi-Quellcode:

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

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