Cara, me explica direito. Essa parte eu acho q primeiro você cria o TIME e coloca lá procedure TForm1.Timer1Timer(Sender: TObject);
var
Present: TDateTime;
Hour, Min, Sec, MSec: word;
hh, mm, ss : shortstring;
begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
sec := sec - 1; // mantem o relogio parado entre um segundo e outro
hh := IntToStr(hour);
mm := IntToStr(min);
ss := IntToStr(sec);
SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss));
end; E a primeira parte, eu não sei aonde botar (s é num botão, etc):