из делфи в С++ Билдер (работа со строками)

[Askar_g]

Доброго времени суток!
ПОмогите надо перевести код из Делфи в С++ Билдер

StartPos:=Pos('****', Copy(form1.RichEdit1.Text,StartPos+1, Length(form1.RichEdit1.Text)))+StartPos-1;
  EndPos:=Pos('****', Copy(form1.RichEdit1.Text,StartPos+5, Length(form1.RichEdit1.Text)))+StartPos-1;
  form1.Label1.Caption:=Copy(form1.RichEdit1.Text ,StartPos+5, EndPos-StartPos);
  caption:=inttostr(StartPos)+' '+inttostr(EndPos);
  StartPos:=EndPos+5;
  inc(NPos);

код отвечает за частичное перемещение текста из Ричедита в Label, может у кого есть свои примеры на С++, прошу пишите, буду рад всякой помощи.