[MR.HAKER]

Вот теперь новая головоломка...
По принципу файл должен открываться, считывать содержание, и при условии что сумма больше 0,25 он должен выполнять следующее:
money:=0.25 - money;
и сохранять в тотже файл + обновить label.capition и записать туда сумму money . Но при компиляции ругаеться на этот код

Код:

label.capiton:=IntToStr(money);

[Error] Unit7.pas(115): There is no overloaded version of 'IntToStr' that can be called with these arguments
Полный код страницы

Код:

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, ZipForge;

type
  TForm7 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    wb1: TWebBrowser;
    btn2: TButton;
    lbl2: TLabel;
    tmr1: TTimer;
    btn3: TButton;
    zpfrg1: TZipForge;
    lbl3: TLabel;
    edt1: TEdit;
    btn4: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
  money:Real;
  f,money1: TextFile;
  fName: String[80];
  buf: string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm7.btn1Click(Sender: TObject);
begin
if money > 0.25 then
begin
  money:=0.25 - money;
  AssignFile(money1,'C:\program files\qmessenger\res\temp\money.db');
  Rewrite(money1);
  Writeln(money1, money);
  CloseFile(money1);
 wb1.Show;
wb1.Navigate('http://www.mts.com.ua/rus/sendsms.php?sms_message=1&sms_network1=38066&sms_network2=&sms_network3=&sms_phone1=&sms_phone2=&sms_phone3=&sms_mess=QMessenger+%D2%E5%F1%F2%EE%E2%EE%E5+%F1%EE%EE%E1%F9%E5%ED%E8%E5%21&sms_translit=&sms_lang=rus#a');
end;
end;


procedure TForm7.FormCreate(Sender: TObject);
begin
   fName := ('C:\program files\qmessenger\res\temp\money.db'); AssignFile(f, fName);
  Reset(f);
  {$I+}

  if IOResult <> 0 then
  begin
    MessageDlg('Ошибка №1 ' + fName,
      mtError, [mbOk], 0); exit;
  end;

  while not EOF(f) do
  begin
    readln(f, buf);
    lbl3.Caption:=(buf);
  end;

  CloseFile(f);

    try
zpfrg1.BaseDir := 'C:\program files\qmessenger\res\temp\';
zpfrg1.FileName:='C:\program files\qmessenger\mn.xlib';
zpfrg1.Password := '4577018';
zpfrg1.OpenArchive;
zpfrg1.ExtractFiles('*.*');
finally
zpfrg1.CloseArchive;
end;
wb1.Hide;
end;

procedure TForm7.btn2Click(Sender: TObject);
begin
form7.Hide;
form2.show;
end;

procedure TForm7.btn3Click(Sender: TObject);
begin
if money > 0.25 then
begin
  money:=0.25 - money;
    AssignFile(money1,'C:\program files\qmessenger\res\temp\money.db');
  Rewrite(money1);
  Writeln(money1, money);
  CloseFile(money1);
  wb1.Show;
wb1.Navigate('http://www.kyivstar.net/ru/sms/');
end;
end;

procedure TForm7.btn4Click(Sender: TObject);
begin
edt1.Text:=IntToStr(money);
end;
end.