Sekunden an einen Timer übergeben

[glkgereon]

so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(zeitsekunden);
vorhanden:=     strtofloat(Edit1.Text);
prostunde:=     strtofloat(Edit2.Text);
benoetigt:=     strtofloat(Edit3.Text);

fehlend:=       benoetigt - vorhanden;
zeitstunden:=   fehlend / prostunde;
zeitsekunden:=  round(zeitstunden * 3600);

h:=             zeitsekunden div (60 * 60);
zeitsekunden:=  zeitsekunden - h*60*60;
m:=             zeitsekunden div 60;
zeitsekunden:=  zeitsekunden - m*60;
s:=             zeitsekunden;

Edit4.Text:= 'h: '+inttostr(h)+' min: '+inttostr(m)+' sec: '+inttostr(s);
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

also den berechnungs/ausgabecode einfach nur umkopieren!!!
jetzt isses zwar so, das die anzeige erst 1 sek nach buttonclick geupdated wird, aber das machste jetzt selber!!!