CSV Datei einlesen funktioniert aber nicht richtig

[Christian18]

hallo,

ich habe ein kleiner Programm geschrieben, womit ich eine CSV Datei auslesen kann und die Daten die ausgelesen werden, werden in eine Paradox7 Tabelle gespeichert. Ich habe bloß ein Problem. hier erst einmal mein Code:

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
  var open1 : TOpenDialog;
      s     : String;
      l     : TStringList;
      f     : TextFile;
begin
  open1:=TOpenDialog.Create(self);

  l:=TStringList.Create();

  // Kapitel einlesen
  if
    open1.Execute
  then
    begin
      AssignFile(f, open1.FileName);
      Reset(f);
      while not Eof(f) do begin
        Readln(f, s);
        l.Delimiter:=';';
        l.DelimitedText:=s;
        TKapitel.Append;
        TKapitelAmtlicherOPS.AsString:=l[0];
        TKapitelKapitelnummer.AsString:=l[1];
        TKapitelKapiteltitel.AsString:=l[2];
        TKapitel.Post;
      end;
      CloseFile(f);
    end;
end;

so sieht ein Tag aus den ich einlese:

1;9;ERGÄNZENDE MASSNAHMEN

das einlesen funktioniert auch alles soweit ganz gut. aber in meiner DB wird in der letzten Spalte nur das erste Wort eingetragen. Also hier beim Bsp.: ERGÄNZENDE

es soll aber ERGÄNZENDE MASSNAHMEN in der Datenbank gespeichert werden. Und mein problem ist jetzt ich weiß nicht, ob es am einlesen der csv datei liegt oder am speichern???

PS: Kann mir jemand helfen???

Mit freundlichen Grüßen

Christian18