Переписать код bp C++, на Delphi

[Айдар]

ребят помогите переписать код

String sMacros = "";
TStringList* MacrosList = new TStringList;

// если StrictDelimiter == false, пробел тоже будет считаться разделителем
MacrosList->StrictDelimiter = true;
// указываем нужный разделитель
MacrosList->Delimiter = '|';
//пока макросы есть в сообщении выполняем цикл
while(sMsg.Pos("{") && sMsg.Pos("}"))
{
// записываем первый в сообщении макрос в переменную sMacros
sMacros = sMsg;
sMacros.Delete(1, sMacros.Pos("{"));
sMacros.SetLength(sMacros.Pos("}") - 1);
// разбиваем макрос на строки (одна строка - один вариант текста)
MacrosList->DelimitedText = sMacros;
// выбираем случайный вариант текста
sMacros = MacrosList->Strings[Random(MacrosList->Count)];
// заменяем в сообщении текст макроса на выбранный вариант
sMsg = sMsg.SubString(1, sMsg.Pos("{") - 1) +
sMacros +
sMsg.SubString( sMsg.Pos("}") + 1,
sMsg.Length() - sMsg.Pos("}"));