mengenzunahme aus zwei zeiten + zunahme/h

[glkgereon]

hi

ich hab einen timer, und jede sekunde soll eine menge, die jede stunde um eine bestimmte menge steigt hochgezählt werden

ich wollte das so machen:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var jetzt:TDatetime;
begin
  jetzt:=now;
  t_da:=t_da+round(t_prod/(jetzt-lasttime));
  lasttime:=now;
end;

also, jetzt-lasttime is die zeit die seit dem letzten aufruf vergangen ist....

t_da soll die menge repräsentieren

die division:
t_prod ist die zunahme pro stunde *24 -> pro tag
geteilt durch
die verbrauchte zeit in tagen


aber die werte sind viel zu groß, wo ist der fehler?