Скопировать текущую версию строки таблицы в таблицу истории
function CopyRowToHistory(aDataSource, aKeyField, aUID: string;
changedValues: string = ''): integer;
aDataSource
aKeyField
aUID
changedValues
0, если выполнено успешно, иначе < 0