document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. var
  2.    s: string;
  3.    sl: TStringList;
  4. begin
  5.    sl := TStringList.Create;
  6.    s := \'Users^foo bar^bar foo^foobar^barfoo\';
  7.    sl.Delimiter := \'^\';
  8.    sl.DelimitedText := s;
  9.    ShowMessage(sl[1]);
  10. end;
');