Ticker: TTimer;
//Картинки часов и фона
FBitmap, FBGBitmap: TBitmap;
/События
FOnSecond, FOnMinute, FOnHour: TNotifyEvent;
//Центральная точка
CenterPoint: TPoint;
//Радиус
Radius: integer;
//Переменная отвечающая за показ секундной стрелки
ShowSecondArrow: boolean;
//Цвет фона часов
FFaceColor: TColor;
//Цвета стрелок часов
FHourArrowColor,FMinArrowColor, FSecArrowColor: TColor;
//формат даты
FDateFormat: String;
//Стиль шрифта
FFont: TFont;
//Остальные параметры, которые мы рассмотрим в процессе. LapStepW: integer;
PrevTime: TDateTime; CHourDiff, CMinDiff: integer; FClockStyle:TClockStyle;
Теперь в разделе privateопишем процедуру TickerCall. Мы её уже использовали в конструкторе. Она у нас вызывается по событию от таймера, но пока ещё не написали: