CREATE OR REPLACE TYPE REE_REC as object
(
--тут 45 полей, не буду все перечислять
);

CREATE OR REPLACE TYPE REE_TAB AS TABLE OF REE_REC

procedure TfrmCreateLoadFiles.UploadFile;
var
  LNestTable: TOraNestedTable;
begin
  --
  try
      LNestTable := TOraNestedTable.Create(nil);
      LNestTable.Table := TOraNestTable.Create
        (TOraType.Create(DefSession.OCISvcCtx, 'REE_TAB'));
      LNestTable.Open;
      --
      LNestTable.Append;
      LNestTable.FieldByName('FKEY').Value := FCurFileKey;
      LNestTable.FieldByName('LINE_N').Value := LLineN;
      LInd := 0;
      while Pos(chr(9), LText) > 0 do
      begin
        LVal := Copy(LText, 1, Pos(chr(9), LText) - 1);
        LNestTable.FieldByName(FRealColumnNames[LInd]).Value := Trim(LVal);
        Inc(LInd);
        Delete(LText, 1, Pos(chr(9), LText));
      end;
      LNestTable.FieldByName('F_PR').Value := '-';
      LNestTable.FieldByName('FIL').Value := FFileType;
      LNestTable.Post; //вот тут при фиксации значения всех полей записи превращаются в Null
      --
      NewImportFile_1061(LNestTable);
      --
    finally
      FreeAndNil(LNestTable);
    end;
--

  procedure ImportFile_1061(PData ree_tab) is
  begin
    insert into fgv_clree
      (--перечень полей
      )
      select tt.*
        from TABLE(CAST(PData AS ree_tab)) tt;
  end ImportFile_1061;