Probleme mit tStrings und Strings im Memofeld

[Gruber_Hans_12345]

deklariere zeilenarray auch als TStringArray

Delphi-Quellcode:

procedure TfMain.btEinlesenClick(Sender: TObject);
var i, Code, aNr, aJahr:integer;
    Zeile,testt, aSachgebiet, aAutor, aTitel, aOrt, aVerlag : String;
    neu : tBuch;
    zeilenarray:TStringArray;
begin
  mAnzeige.Lines.LoadFromFile('Buecher.txt');
  Anzahl := mAnzeige.Lines.Count;
  Buchliste := tListe.create;
  for i := 0 to Anzahl-1 do begin
     Zeilenarray:=Split(mAnzeige.lines[i], ';');
  end;