Добро пожаловать на наш портал

Label вкладка Standard
Timer вкладка System

Кидаем на форму Labe иl Timer.

Кликаем по таймеру два раза и там пишем:

label1.caption:=timetostr(time);

В итоге код в таймере должен получиться такой:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;

Кликаем по форме один раз и в функции BorderStyle ставим bsDialog

Кликаем по лабел один раз и в функции Font выбираем шрифт и размер шрифта

Часы готовы.