Hallo,
ich würde einfach die folgende Funktion benutzen:
Delphi-Quellcode:
//...
l.Delimiter:=';';
l.DelimitedText:='"'+StringReplace(s,';','";"',[rfReplaceAll])+'"';
//...
Für
StringReplace muss noch die
Unit SysUtils eingebunden werden
MfG
Delphi Apostel