procedure SplitStr(const S: String; Delim: Char; SL: TStrings)  

Разбивает строку на подстроки, определяемые разделителем, и добавляет подстроки в существующий экземпляр списка строк. Перед вызовом процедуры объект SL должен быть создан. Перед добавлением подстрок процедура очищает список.

Параметры:

• S - исходная строка.
• Delim - разделитель.
• SL - список строк.

Пример:

var
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  SplitStr('один;два;три;четыре', ';', SL);
  for i := 0 to SL.Count - 1 do
    Debug(SL[i]);
  SL.Free;
end;