Помогите с таймером

[Михаил Юрьевич]

Подскажите пожалуйста,делаю таймер что бы
в Label отображалось часы, минуты и секунды
Пишу следующий код:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 s:=s-1;
if h<10 then h1:='0'+InttoStr(h) else h1:=IntToStr(h);
if m<10 then m1:='0'+InttoStr(m) else m1:=IntToStr(m);
if s<10 then s1:='0'+InttoStr(s) else s1:=IntToStr(s);
eee:=h1+':'+m1+':'+s1;
Form1.Label8.Caption:=eee;
if (s=0)and(m>0) then
begin
s:=60;
m:=m-1;

Работает если вводить в секунды хотя бы 1,
если будет ноль и запустить таймер,
например 00 01 00 то отображается так:
00 01 0-2 и пошло по возрастанию
Этот код работает с минутами и не корректно с
секундами,а подскажите как работать с часами,
если вводишь час то начинают секунды опять
по нарастающей отображаться

[alexBlack]

function str0(n:integer):String;
begin
   result := IntToStr(n);
   if n < 10 then result := '0'+result
end;

procedure TForm1.viewTime;
begin
   Label1.Caption := Str0(h)+':'+Str0(m)+':'+Str0(s);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   viewTime;

   if h+m+s = 0 then exit;

            dec(s); if s >= 0 then exit;
   s := 59; dec(m); if m >= 0 then exit;
   m := 59; dec(h); if h >= 0 then exit;

   h := 0; m := 0; s := 0;
   timer1.enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   h := 1;
   m := 1;
   s := 1;
end;

[FaTaL]

а зачем это вообще надо? Легче сделать так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=TimeToStr(now);
end;

[strannik]

может так?

...
var
  Form1: TForm1;
  h, m, s, l: integer;
implementation

{$R *.dfm}
function Zero(w:integer): string;
var
 st:string;
begin
 str(w:0,st);
 if length(st)=1 then st:= '0' + st;
 Zero := st;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 label1.Caption:=zero(h)+':'+zero(m)+':'+zero(s)+':'+zero(l);
 l:=l+1;
 if l=100 then
 begin
  s:=s+1;
  l:=0;
   if s=60 then
    begin
     m:=m+1;
      if m=60 then
       begin
        h:=h+1;
        m:=0;
       end;
     s:=0;
    end;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 h:=0;
 m:=0;
 s:=0;
 l:=0;
end;

[Terran]

Что бы в каждом лабеле отображались часы, минуты, секунды и т.д. можно сделать так:

procedure TForm1.Timer1Timer(Sender: TObject);
Var
U: SystemTime;
begin
GetLocalTime(U);
Label1.Caption:=IntToStr(U.wYear);
Label2.Caption:=IntToStr(U.wMonth);
И так далее

end;

[Andre1723]

Я делал так:
//Индикация времени

procedure TfmMain.Timer1Timer(Sender: TObject);
begin
 If sec = 59 Then
    begin
      inc(min);
      sec:= 0;
      If min = 60 Then
        begin
          inc(ch);
          min:= 0;
          If ch = 24 Then
            begin
              ch:= 0;
            end;
        end;
     end
     Else
      begin
       inc(sec);
      end;

  If ch < 10 Then
    c:= '0'+ IntToStr(ch)
    Else
      c:= IntToStr(ch);
  If min < 10 Then
    m:= '0'+ IntToStr(min)
    Else
      m:= IntToStr(min);
  If sec < 10 Then
    s:= '0'+ IntToStr(sec)
    Else
      s:= IntToStr(sec);
  fmMain.lbClock.Caption:= c + ':'+ m + ':'+ s;
end;

[Dj_smart]

Кстати, в библиотеке RxLib есть компонент RxClock, который отлично справляется с поставленной задачей

[DeDoK]

можно сделать намного проще:

procedure TForm1.Timer1Timer(Sender:TObject);
var 
DateTime:TDateTime
begin
DateTime:=Time;
Label1.Caption:=TimeToStr(DateTime);
end;

и все.

[Stilet]

Касаемо Всех: Про теги оформления не забываем!

[Gorychev]

Мне больше нравится:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= FormatDateTime('dddddd', Date) + '  ' +
  FormatDateTime('ddd', Date) +  '  ' + FormatDateTime('t', Time);
end;