procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if strtoint(Label1.Caption)<12 then Label1.Caption:=inttostr(strtoint(Label1.Caption)+1) else
   begin
      Label1.Caption:='0';  
      Label2.Caption:=inttostr(strtoint(Label2.Caption)+1);  
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   //Время тика таймера, в миллисекундах, 1000 миллисекунда=1 секунда:
   timer1.Interval:=1000;
   //Включить (true) или выключить (false) таймер:
   timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   //Секундомер:
   Label1.Caption:=inttostr(strtoint(Label1.Caption)+1);
   //Таймер:
   Label2.Caption:=inttostr(strtoint(Label2.Caption)-1);
   //Дата + время:
   label3.Caption:=datetimetostr(now);
   //Только дата:
   label4.Caption:=datetostr(now);
   //Только время:
   label5.Caption:=timetostr(now);
end;