Clone Record (Delphi)

procedure CloneRecord(Dataset: TDataSet);
var
aField : Variant;
i : Integer;
begin

// Create a variant Array
aField := VarArrayCreate([0,DataSet.Fieldcount-1],VarVariant);

// read values into the array
for i := 0 to (DataSet.Fieldcount-1) do
aField[i] := DataSet.fields[i].Value ;

DataSet.Append ;

// Put array values into new the record
for i := 0 to (DataSet.Fieldcount-1) do
DataSet.fields[i].Value := aField[i] ;

end;