void __fastcall TWordHandler::FillParam(AnsiString Name// Имя примечания)
{
 RangePtr Range=WordDocument->Range(TNoParam(),TNoParam());
 for(int i= 1 ;i<=Range->Comments->Count;i++)
   {
     AnsiString St = CurrentGroup->Range->Comments->Item(i)->Range->Text;
     if (St == Name)
     {
      //Code
     }
   }
}

void __fastcall TWordHandler::FillParam(AnsiString Name// Имя примечания)
{
 RangePtr Range=WordDocument->Range(TNoParam(),TNoParam());
 for(int i= 1 ;i<=Range->Comments->Count;i++)
   {
     AnsiString St = Range->Comments->Item(i)->Range->Text;
     if (St == Name)
     {
      //Code
     }
   }
}