Delphi - Cvičení - Hodiny a stopky

procedure TOkno.HodinyTimer(Sender: TObject);  // interval časovače 1000 ms
begin
  popisekHodiny.Caption:=TimeToStr(now);   // zobrazí aktuální čas
  popisekDatum.Caption:=DateToStr(now);    // zobrazí aktuální datum 
end;

procedure TOkno.StopkyTimer(Sender: TObject);  // interval časovače 1 ms
begin
  popisekStopky.Caption:=FormatDateTime('??????????',cas+(now-start)); 
    // doplnit správný formátovací řetězec pro zobrazení tisícin sekundy
end;

procedure TOkno.tlacitkoStartStopClick(Sender: TObject);
begin
  if Stopky.Enabled = false then     // pokud je časovač vypnutý
    begin
      start:=Time;                   // uloží čas stisku tlačítka START do proměnné start
      Stopky.Enabled:=true;          // zapne časovač Stopky
      tlacitkoStart.Caption:='STOP'; // přepne titulek tlačítka
    end
  else                               // pokud běží čas
    begin
      stop:=Time;                    // uloží čas stisku tlačítka STOP do proměnné stop
      Stopka.Enabled:=false;         // vypne časovač
      cas:=cas+(start-stop);         // přičte naměřený čas k předchozímu měření
      tlacitkoStartStop.Caption:='START';
    end;
end;