Ага, где-то 8 копеек минута стоит (100/12=8.до дырки три, выходит или четыре копейки надо на другой час переносить, либо каждые 3 минуты копейку добавлять к общей сумме, ну или тариф скорректировать :-), в таймере минута это 60000, значит нужно запустить минутный таймер в смысле Timer1.Interval:= 60000 и за каждый тик увеличивать глобальную переменную на 8, примерно так
Код:
var
Coins: integer=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(Coins, 8);
end;
З.Ы. Насчёт добавки копейки, тоже самое - ещё одну переменную завести, каждую минуту увеличивать её на 1 и проверять если уже = 3 то обнулить, а 1 прибавить к общему счётчику
Код:
var
Count : integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
...
Inc(Count);
if Count = 3 then
begin
Count:=0;
Inc(Coins);
end;
end;
через 12 минут в копилке так будет ровно 1 руб., вернее 100 коп., похоже тоже надо обнулять Coins, а к ещё одной переменной (с целыми рубликами) добавлять 1. Тогда чтоб проверить сумму достаточно показать целые рубли плюс набежавшие копейки. Вроде так