3.Оқиға кодын (программасын) құру–олүшін TTimerкомпоненті өңдейтін Оқиға - Object Inspector терезесіндегі Events бөлігінде орналасқан, OnTimer оқиғасын таңдап, оң бөлігін екі рет шерту керек немесе Timer1 компонентін екі рет шертсе – процедура, яғни unit1.pas терезесі ашылады. 4. Программақұру: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var DateTime:TDateTime; begin DateTime:=Time; {ағымды уақытты қайтарып беретін стандартты функция} Label1.Caption:=TimeToStr(DateTime); { уақытты символдық типке түрлендіру} end; end. 1. Іске қосу командасын беру (F9 пернесін басу) арқылы, мәтін шығару өрісінде жүріп тұрған электрондық сағатты (15.4-сурет) көрсету.