procedure TForm1.cxButton7Click(Sender: TObject);
var
  ExcelApp, Sheet: OLEVariant;
  WorkSheet: Variant;
  StartDate: string;
  EndDate: string;
  InnOrg: string;
  i, j, RowCount, ColCount: Integer;
  Sum: Integer;
begin
   // создаем объект Excel
  ExcelApp := CreateOleObject('Excel.Application');
  try
    // делаем окно Excel невидимым
    ExcelApp.Visible := false;
    // открываем файл XLSFile
    ExcelApp.Workbooks.Open('d:\1.xlsx');
    // создаем объект Sheet(страница) и указываем номер листа (1)
    // в книге, с которого будем осуществл¤ть чтение
    WorkSheet := ExcelApp.Workbooks[1].WorkSheets[1];

    for i := 38 to 400 do
    begin
      InnOrg := WorkSheet.cells[i, 7];
      //ShowMessage(InnOrg);
      if (VarIsNull(InnOrg)) or (Trim(InnOrg) = '') then
        Exit;
      qRisk.Close;
      qRisk.SQL.Clear;
      qRisk.SQL.Add('SELECT c_risk FROM s_object WHERE orginn=:pOrgInn');
      qRisk.ParamByName('pOrgInn').AsString := InnOrg;
      qRisk.Open;
      WorkSheet.cells[i, 22] := qRisk.FieldByName('c_risk').AsInteger;
    end;
   // ShowMessage(IntToStr(Sum));
  finally
    // закрываем приложение Excel
    ExcelApp.Quit;
    // очищаем выделенную пам¤ть
    ExcelApp := Unassigned;
    // Sheet := Unassigned;
  end;
end;