[Alegun]

Оффтоп: пжлст, оформите "листинг" тегом [СODE]...[/СODE]

Непонятная конструкция, типо таймера обратного отсчёта, зачем здесь TTimer, он лишний, но если так задумано, тогда так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Timer1Timer(Sender: TObject);  Label t1; var  v1,EndTime10:integer;  H,M,S:Byte; begin  Timer1.Enabled:= false;  EndTime10:=10;  v1:=0;    t1:    dec(EndTime10);  S:= EndTime10 mod 60;  M:= EndTime10 div 60 mod 60;  H:= EndTime10 div 3600;  Edit1.Text:= IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S);   if EndTime10>0 then  begin   Edit1.Text:= IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S);   inc(v1);   Edit4.Text:= IntToStr(v1);   Sleep(1000);   Application.ProcessMessages;     goto t1;    end; end;