[Pyro]

Код:

function Explode(text: String; separator: String=' '): TStringList;
begin
  text := StringReplace(text, #13#10, ' ', [rfReplaceAll]);
  text := StringReplace(text, separator, #13#10, [rfReplaceAll]);
  result := TStringList.Create;
  result.Text := text;
end;