Leerzeilen in Tstringlist

[gangs-taas]

aber selbst wenn ich das so mach wie du sagst bekomme ihc trotzdem in der endgültigen Textdatei nur
sonntag
sonntag
sonntag
ect.

hab das jetzt soo

Delphi-Quellcode:

function TForm1.SpeicherHilfe(Var Memo: TMemo ; StringListe : TStringList): TStringList;
var
I : Integer ;
Pruefstring : String;
begin
For i := 0 to Memo.Lines.Count-1 do
  begin
      Pruefstring := Memo.Lines[i];
      if(Pruefstring <> '') and (Pruefstring <> 'Serien Termine') then
        StringListe.Add(Memo.Lines[i])  ;
  end;
end;

Trotzdem nur sonntag ...