StringGrid Zeilen löschen

[SaFu]

Hi

so dank eurer hilfe hat es funktioniert hat am Trim gelegen
jetzt habe ich nur noch das Problem dass immer die Überschrift der einzelnen Datein in meiner Monatslog steht wie kann ich das jetzt prüfen und herausnehmen hab versucht mal die 1 spalte zu prüfen ob ein Date drin steht aber funzt net so

Delphi-Quellcode:

//=====================Dateien aneinander hängen==============================
procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i,x : Integer;
begin
 ForceDirectories(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'_CDR_'+ ComBobox3.Text + '_' + ComboBox1.Text);
 try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

 for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);

   for x := Pred(sl1.Count) downTo 0 do
     begin
      if (Trim(sl1[x]) = '') or (sl1[x] = 'Date') then
       begin
        sl1.Delete(x);
       end;
     end;

    sl2.addStrings(sl1);
    end;
  sl2.SaveToFile (JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'_CDR_'+ ComBobox3.Text + '_' + ComboBox1.Text +'\'+ ComBobox3.Text+'_'+ ComboBox1.Text+'.log');
 Finally
  sl2.Free;
  Sl1.Free;
 end;
 Button6.Click;
end;

un auf dem bild seht ihr was ich meine