fName := ('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);
   money:=(buf);
 end;
 CloseFile(f);

 lbl2.Caption:=IntToStr(money);

 if money>0.25 then
 begin
money:=money - 0.25;
AssignFile(money1,'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_pho ne1=&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;