progressbar läuft nicht synchron mit

[karoglan]

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.text);
a:=a*3600000;
b:=strtoint(edit2.text);
b:=b*60000 ;
c:=strtoint(edit3.text);
c:=c*1000;

progressbar1.Max:=a+b+c;
progressbar1.min:=0;
progressbar1.Step:=1 ;       //1
 progressbar1.Stepit;
  if  progressbar1.Position = progressbar1.max then   begin
timer3.Enabled:=false;






procedure TForm1.Timer2Timer(Sender: TObject);
var hh,mm,ss,ms:word; timetoend:TDateTime;
begin

  timetoend:=endtime-Now;
   if timetoend<0 then timetoend:=0;
   DecodeTime(timetoend,hh,mm,ss,ms);
   Edit1.Text:=IntToStr(hh);
   Edit2.Text:=IntToStr(mm);
   Edit3.Text:=IntToStr(ss);
   if timetoend>0 then exit;
   Timer2.enabled:=false;

mfg

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]