string durch ; getrennt

[LarsMiddendorf]

ExtractStrings funktioniert auch. Ich glaube das wird auch von der TStringList verwendet.

Code:

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;