Ошибка Incompatible types: 'TIntegerField' and 'Real'

[Melisare]

Добрый день!
Столкнулась с проблемой и не могу решить, надеюсь на вашу помощь!
На следующий кусок кода компилятор ругается "[Ошибка] UnitSelling.pas(56): Incompatible types: 'TIntegerField' and 'Real'". Я понимаю, что компилятор меня тыкает в несовместимые типы данных, но поправить так и не смогла. Конкретно ругается на строчку "DataBase.TSellingSum_Selling:=resu lt;"

procedure TFormSelling.Button1Click(Sender: TObject);
var
kol_vo, cena: integer;
result: real;
begin
DataBase.TSelling.Append;
DataBase.TSelling.Edit;
DataBase.TSellingAmount.Value := kol_vo;
DataBase.TProductPrice.Value := cena;
result := kol_vo*cena;
DataBase.TSellingSum_Selling:=result;
DataBase.TSelling.Post;
DataBase.TProduct.Edit;
DataBase.TProductAmount.Value:=DataBase.TProductAmount.Value-DataBase.TSellingAmount.Value;
DataBase.TProduct.Post;

Заранее спасибо!

[ZuBy]

DataBase.TSellingSum_Selling.тут_должно_быть_еще_что-то_видимо

[Аватар]

DataBase.TSellingSum_Selling.Value: =чего-то
и это чего-то должно быть типа приводимого к Integer, а не Real

[Melisare]

Спасибо большое!
Решение нашлось переписыванием кода)

[IliaIT]

и вообще real нужен очень редко и чаще всего и лучше использовать double.

[Аватар]

Дык real эквивалентен double что в D7, что в XE