Функция C++ Builder

[Effractor]

Доброго времени суток ! Нужно перевести код с Delphi на C++ Builder. Помогите пожалуйста, заранее спасибо !

function TForm1.Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

[Effractor]

Мне никто не поможет ???