TXT einlesen und in DB speichern, funzt nicht, weil _ als de

[Christian18]

Hallo,

ich habe ein kleines Problem!

ich lese eine txt ein und will die daten anschließen in eine DB speichern. das funktioniert auch alles so ganz gut.

eine zeile in meiner txt sieht so aus:

1;2;3;Das ist ein Text

hier 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 und jetzt mein Problem

das leerzeichen, das zwischen den wörtern "das" und "ist", ist erkennt meine Programmroutine als ein Delimiter. wie kann ich das verhintern??? das programm soll einfach nur das ";" als Delimiter erkennen.

PS: Kann mir jemand weiterhelfen???

Mit freundlichen Grüßen

Christian18