uses IniFiles;
...
var PSIni : TInifile;
...
   PSIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PNG.ini');

  TInfo = record
      TypeID : integer;
      Name : string;
      Article : string;
      Mark : string;
      MinMeas : single;
      MaxMeas : single;
      PC20  : single;
      PC60  : single;
      PC100 : single;
      Delta : single;
    end;

 TInfoObj = class(TObject)
  private
    sStr : TInfo;
    function GetValue : TInfo;
  public
    constructor Create( TypeID : integer;
                        Name : string;
                        Article : string;
                        Mark : string;
                        MinMeas : single;
                        MaxMeas : single;
                        PC20  : single;
                        PC60  : single;
                        PC100 : single;
                        Delta : single );
    property pValue : TInfo read GetValue;
  end;
...
implementation

{$R *.dfm}

uses DataModule, Confirm, TypeDevice, DBView, TypeStand;

constructor TInfoObj.Create( TypeID : integer; Name : string; Article : string; Mark : string; MinMeas : single; MaxMeas : single; PC20  : single; PC60  : single; PC100 : single; Delta : single);
 begin
    inherited Create;
    sStr.TypeID := TypeID;
    sStr.Name := Name;
    sStr.Article := Article;
    sStr.Mark := Mark;
    sStr.MinMeas := MinMeas;
    sStr.MaxMeas := MaxMeas;
    sStr.PC20 := PC20;
    sStr.PC60 := PC60;
    sStr.PC100 := PC100;
    sStr.Delta := Delta;
 end;

function TInfoObj.GetValue : TInfo;
 begin
  Result := sStr;
 end;

  if MainDataModule.qTypeDevice.Active then MainDataModule.qTypeDevice.Close;
  MainDataModule.qTypeDevice.Prepared := true;
  MainDataModule.qTypeDevice.Parameters.ParamByName('@Option').Value := 0;
  MainDataModule.qTypeDevice.Open;
  cbTypeDevice.Items.Clear;

  while not MainDataModule.qTypeDevice.Eof do begin
    With MainDataModule.qTypeDevice do begin
       vInfo := TInfoObj.Create(FieldByName('TypeID').AsInteger,
                                FieldByName('Name').AsString,
                                FieldByName('Article').AsString,
                                FieldByName('Mark').AsString,
                                FieldByName('MinMeas').AsFloat,
                                FieldByName('MaxMeas').AsFloat,
                                FieldByName('PC20').AsFloat,
                                FieldByName('PC60').AsFloat,
                                FieldByName('PC100').AsFloat,
                                FieldByName('Delta').AsFloat);
       cbTypeDevice.Items.AddObject(FieldByName('Name').AsString + ' ' + FieldByName('Article').AsString, vInfo);
    end;
    MainDataModule.qTypeDevice.Next;
  end;
  MainDataModule.qTypeDevice.Close;

Info := TInfoObj(cbTypeDevice.Items.Objects[cbTypeDevice.ItemIndex]);

   struct _TypeDevice {
	   int TypeID;
	   AnsiString Name;
	   AnsiString Article;
	   AnsiString Mark;
	   double MinMeas;
	   double MaxMeas;
	   double PC20;
	   double PC60;
	   double PC100;
	   double Delta;
       } TypeDevice;

  Variant App;
  String FName = MainDataModule->OutPath + MainDataModule->qMeas->FieldByName("FileName")->AsAnsiString;
  FName = "d:\\Certif_353_20180625103947.xlsx";
  try {
	   App = CreateOleObject("Excel.Application");
  } catch (...) {
   Application->MessageBoxW(L"Невозможно открыть Microsoft Excel!"
							L"Возможно, Excel не установлен на компьютере.",
							L"Ошибка",MB_OK+MB_ICONERROR);
  }
  App.OlePropertyGet("Workbooks").OlePropertyGet("Open",FName.c_str());

  TypeDevice* info = reinterpret_cast<TypeDevice*>(cbTypeDevice->Items->Objects[cbTypeDevice->ItemIndex]);

MainDataModule->qTypeDevice->First();
do
{
 info->TypeID = MainDataModule->qTypeDevice->FieldByName("TypeID")->AsInteger;
 info->Name = MainDataModule->qTypeDevice->FieldByName("Name")->AsString;
 info->Article = MainDataModule->qTypeDevice->FieldByName("Article")->AsString;
 info->Mark = MainDataModule->qTypeDevice->FieldByName("Mark")->AsString;
 info->MinMeas = MainDataModule->qTypeDevice->FieldByName("MinMeas")->AsFloat;
 info->MaxMeas = MainDataModule->qTypeDevice->FieldByName("MaxMeas")->AsFloat;
 info->PC20 = MainDataModule->qTypeDevice->FieldByName("PC20")->AsFloat;
 info->PC60 = MainDataModule->qTypeDevice->FieldByName("PC60")->AsFloat;
 info->PC100 = MainDataModule->qTypeDevice->FieldByName("PC100")->AsFloat;
 info->Delta = MainDataModule->qTypeDevice->FieldByName("Delta")->AsFloat;
 cbTypeDevice->Items->AddObject(MainDataModule->qTypeDevice->FieldByName("Name")->AsString + " " + MainDataModule->qTypeDevice->FieldByName("Article")->AsString, reinterpret_cast<TObject*>(info));
 MainDataModule->qTypeDevice->Next();
} while (MainDataModule->qTypeDevice->Eof == FALSE);
 MainDataModule->qTypeDevice->Close();

  PC = RoundTo((-1)* abs((info->PC20 - CurVal) * 100 / info->PC20), -1);

RecCell( 34, 20, FloatToStrF(PC, ffFixed, 5, 1) + ' %');

void __fastcall TMainForm::RecCell(int row, int col, AnsiString MyText)
{
 Cll = Sht.OlePropertyGet("Cells").OlePropertyGet("Item", row,col); 
 Cll.OlePropertySet("Value", WideString(MyText));
}

  std::vector<int> v;
  v.push_back(10);
  v.push_back(5);
  v.push_back(11);
  v.push_back(0);

  v.clear();

void __fastcall TMainForm::Rec(TObject *SenderVal,TObject *SenderTime,double MaxValue,bool CColor)
{
 if (CColor == true)
   {
	(SenderVal as TEdit).Color = clRed;
	(SenderVal as TEdit).Font.Color = clWhite;
   }

}