{ПРЕДПОЛОЖЕНИЕ: Обе таблицы имеют курсор в нужной строке и компоненты Table ссылаются на таблицы с совместимыми величинами.} var i, lCount: Integer; begin lCount := Source.FieldCount; for i := 0 to lCount - 1 do if (not Source.Fields[i].IsNull) and (Source.Fields[i].CanModify) then Destination.FieldByName(Source.Fields[i].FieldName).Assign(Source.Fields[i]); end;