1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TfrmMain.tmrTimeTimer(Sender: TObject);
var
  wSek, x, y, r: integer;
begin
  s := FormatDateTime('ss', Time);
  edtTime.Text := s;
  r := 50; // Radius
  wSek := trunc(StrToInt(s) * (((2 * pi) / 60)) - pi / 2);
  x := Trunc(Cos(wSek)* r);
  y := Trunc(Sin(wSek)* r);
  x := x + (Width div 2);
  y := y + (Height div 2);
  newHaus.showClock(frmMain, x, y);
end;

procedure THaus.showClock(kContainer: TForm; x, y: integer);
begin
  kContainer.Canvas.MoveTo(zX + (zVar * 2) + (zVar div 2), zY - zVar + (zVar div 4));
  kContainer.Canvas.LineTo(x, y);
end;