procedure Zerlege; var vSL: TStringList; begin vSL := TStringList.Create; try SplitString(vSL, 'Test1::Test2::Test3::', '::'); finally vSL.Free; end; end; procedure SplitFileList(vSL: TStringList; vFileString, vSeparator: String); begin vSL.Text := StringReplace(vFileString, vSeparator, #13 + #10, [rfReplaceAll]); end;