Из Delphi в Builder C++

[Leorr]

Друзья помогите пожалуйсто переписать код программы

void __fastcall TForm1::Memo1Change(TObject *Sender)
{
const morse: array [ord('À')..ord('ß')] of string [5] =
('.- ','-... ','.-- ','--. ',
'-.. ','. ','...- ','--.. ',
'.. ','.--- ','-.- ','.-.. ',
'-- ','-. ','--- ','.--. ',
'.-. ','... ','- ','..- ',
'..-. ','.... ','-.-. ','---. ',
'---- ','--.- ','-..- ','-.-- ',
'..-..','..-- ','.-.- ','.....');
var
i:word;
begin

Memo2.Clear;
for i:=1 to length(Memo1.Lines.Text) do
begin
if Memo1.Lines.Text[i] in ['À'..'ß'] then
Memo2.Lines.Text := Memo2.Lines.Text + morse[ord(Memo1.Lines.Text[i])]+' '
else Memo2.Lines.Text := Memo2.Lines.Text + Memo1.Lines.Text[i];

end;
}

[Leorr]

void __fastcall TForm1::Memo1Change(TObject *Sender)
{
String morze[32]={".- ","-... ",".-- ","--. ",
"-.. ",". ","...- ","--.. ",
".. ",".--- ","-.- ",".-.. ",
"-- ","-. ","--- ",".--. ",
".-. ","... ","- ","..- ",
"..-. ",".... ","-.-. ","---. ",
"---- ","--.- ","-..- ","-.-- ",
"..-..","..-- ",".-.- ","....."};
String res=Memo1->Lines->Text;
for(int i=0;i<32;i+=1)
res=StringReplace(res,char('А'+i),m orze[i],TReplaceFlags() << rfReplaceAll);
Memo2->Lines->Text=res;
}