DelimitedText // CSV

[schof]

Hi
ich habe hier eine Procedure zum auslesen von einer CSV und zum schreiben dieser Werte in eine Datenbank

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);      
  var      
    SL: TStringList;      
    i: Integer;      
    T: Textfile;      
    SInString: String;      

   
begin      
  if (<opendialog>.Execute) then begin
    SL := TStringList.Create;
    try
      AssignFile(T,<opendialog>.FileName);
      Reset(T);      
      while (not Eof(T)) do begin    
        ReadLn(T,SInString);
        SL.Delimiter := ';';
        SL.DelimitedText := SInString;
        <deinetabelle>.Append;
        for i := 0 to SL.Count-1 do
          <deinetabelle>.Fields[I].AsString := SL.Strings[i];
        <deinetabelle>.Post;
      end;
    finally
      SL.Free;
    end;
  end;
  CloseFile(T);
end;

ich hab mir das ergebnis befor ich in die tabelle schreibe mal in eine textfile kopieren lassen damit ich sehe, wo er teilt.
Mein Problem es funktioniert alles gut nur: er nimmt das Leerzeichen auch als delimiter wie kann ich das ändern

danke schon mal