[draginimp]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
finish:=now+(strtoint(edit1.Text)*12/1440);  //12 рублей минут // 1440-минут в сутках
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var p: tdatetime;
begin
p:=now-finish;
label2.Caption:=timetostr(p);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
//Если подразумевается, что возможны копейки, то finish:=now+(floattostr(edit1.Text)*12/1440); 

Otchet_Vremeni.rar