1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  oleFieldNames:OleVariant;
  oleFieldValues:OleVariant;
begin
  oleFieldNames  := VarArrayOf(['Id','Name','Number']);
  oleFieldValues := VarArrayOf([Id, 'Test', 42]);

  ADORecordSet.AddNew(oleFieldNames,oleFieldValues); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

    ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
    ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd,
    ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval,
    ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream,
    ftTimeStampOffset, ftObject, ftSingle                    

1:

ADODataSet.Append;                    

1:
2:

ADODataSet.Fields[<Feld-Index>].AsString := 'Hallo Welt';
ADODataSet.Fields[<anderer Feld-Index>].AsInteger := 4711;                    

1:

ADODataSet.Post;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TADODataSet.InternalInitRecord(Buffer: PChar);
begin
  DoMessage('InternalInitRecord');
  FillChar(Buffer^, GetRecordSize, 0);
  try
    ADORecordSet.AddNew(0, null);
  except
    ADORecordSet.AddNew( ADORecordSet.Fields, EmptyParam );       
  end;
  //ADORecordSet.Update(EmptyParam, EmptyParam);
  PadoInfo(Buffer+StartInfo).BookmarkInt:=ADORecordSet.Bookmark;
//  NewRec:=PadoInfo(Buffer+StartInfo).BookmarkInt;
  EMode:=False;
end;                    

1:
2:

oDatSet.Edit;
oDatSet.Append;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TADODataSet.InternalAddRecord(Buffer: Pointer; Append: Boolean);
begin
  DoMessage('Add new record...');
//  ADORecordSet.Bookmark:=PadoInfo(PChar(Buffer)+StartInfo).BookMarkInt;
//  ADORecordSet.AddNew(EmptyParam, EmptyParam);
//  PadoInfo(Buffer+StartInfo).BookMarkInt:=ADORecordSet.Bookmark;
  EMode:=True;
end;

procedure TADODataSet.InternalInitRecord(Buffer: PChar);
begin
  DoMessage('InternalInitRecord');
  FillChar(Buffer^, GetRecordSize, 0);
  ADORecordSet.AddNew(0, null);
  ADORecordSet.Update(EmptyParam, EmptyParam);
  PadoInfo(Buffer+StartInfo).BookmarkInt:=ADORecordSet.Bookmark;
//  NewRec:=PadoInfo(Buffer+StartInfo).BookmarkInt;
  EMode:=False;
end;