Перевод с паскаля

#include <iOSapi.Foundation.hpp>
#include <Macapi.Helpers.hpp>
#include <FMX.Helpers.iOS.hpp>
#include <IdURI.hpp>
 
 
bool __fastcall OpenURL2(const String &AURL)
{
 
   _di_NSURL NSU = StrToNSUrl(AURL);
    if (SharedApplication()->canOpenURL(NSU))
        return SharedApplication()->openURL(NSU);
    else
        return false;
 
}
//------------------------------------------------
 
void __fastcall TForm2::Button2Click(TObject *Sender)
{
 
   Button2->Enabled = false;
   try
   {
      String ToStr = _D("тут email");
      String SubjectStr = _D("заголовок");
//пример для содержимого письма:
      String BodyStr = _D("Name: ") + Trim(Edit1->Text) +
         _D("; Date: ") + DateTimeToStr(Calendar1->Date) +
    _D("; Review: ") + ComboBox1->Items->Strings[ComboBox1->ItemIndex];
 
      SubjectStr = TIdURI::ParamsEncode(SubjectStr);
      BodyStr = TIdURI::ParamsEncode(BodyStr);
 
      //String URL = System::Sysutils::Format(_D("mailto:%s?subject=%s&body=%s"), ARRAYOFCONST(( ToStr, SubjectStr, BodyStr )));
      String URL = _D("mailto:") + ToStr + _D("?subject=") + SubjectStr + _D("&body=") + BodyStr;
 
      if (!OpenURL2(URL))
      {
         ShowMessage(_D("Unable to sent. Check the Internet connection, and make sure an email client is installed."));
         return;
      }
 
      ShowMessage(_D("Thank You!"));
      Close();
   }
   __finally
   {
      Button2->Enabled = true;
   }
 
}