[MR.HAKER]

С той хренью справился, но он терь не правильно отнимает. Какую сумму не вводи в файл он выдает результат = -2,500000000

Код:

if money > 0.25 then
ShowMessage('Услуга платная Стоимость 0,25 коп');
begin
  money:= money - 0.25;
   AssignFile(money1,'C:\program files\qmessenger\res\temp\money.db');
  Rewrite(money1);
  Writeln(money1, money);
  CloseFile(money1);
  ShowMessage('Выполнено');

Хелп!