Leerzeilen in Tstringlist

[nahpets]

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
--> Fehler!!! muss Memo heißen -->      Pruefstring := Memo1.Lines[i];
      if(Pruefstring <> '') and (Pruefstring <> 'Serien Termine') then
--> Fehler!!! muss Memo heißen -->        StringListe.Add(Memo1.Lines[i])  ;
  end;
end;