procedure TForml.EditlKeyPress(Sender:TObject; var Key: Char);begin if Key= #13 then begin Key:= #0; Buttonl.SetFocus; end; Misal. Vurma əməliyyatı yerinə yetirən kalkulyatorun hazırlanması. Labell komponentinin sərlövhəsini pozun, Buttonl düyməsinin sərlövhəsini Vurma adlandırın, Edit komponentlərinin isə Text xassələrini pozun. Buttonl düyməsi üçün OnClick hadisə emaledicisi yaradın. Bu məsələnin proqramının tam mətni aşağıdakı kimi olacaqdır: unit Unitl; interface uses Windows,Messages,SysUtils,Classes,Graphics, Controls,Forms,Dialogs,StdCtrls,ExtCtrls; type TForml = class(TForm) Editl: TEdit; Edit2: TEdit; Buttonl: TButton;Labell: TLabel; procedure ButtonlClick (Sender: TObject);Labell: TLabel; procedure ButtonlClick (Sender: TObject);private { Private declarations }public { Public declarations } end;varForml: TForml; implementation {$R *.DFM} procedure TForml.ButtonlClick(Sender: TObject);Var z: Longlnt; zl, z2, s: String;beginzl:= Editl.Text;z2:= Edit2.Text;z:= StrToInt(zl)*StrToInt(z2);s:= IntToStr(z);With labell.Font do begin Name:= 'Courier'; Size:= 16; Color:= clRed;Style:= [fsBold]; end; Label1.Capt ion:=S; end;end. Burada, zl, z2 və z dəyişənləri tam tipli (Longlnt), s isə sətir tipli (String) elan edilir. Ona görə də bu proqram yalnız tam ədədlərin hasilini hesablayacaqdır və onluq kəsr ədədlər daxili etmək olmaz. Editl və Edit2 mətn sahələrindən daxil edilən ədədlər sətir tipdən tam ədədlərə çevrilərək (StrToInt) vurulur və hasil - z yenidən (bu dəfə tərsinə) tam ədəddən sətir tipə çevrilir (IntToStr, Əlavəyə bax). Button düyməsini basdıqda nəticə qırmızı rəngli, 16 punktluq, yarımqalın, Courier şrifti ilə Label yazısı üzərində təsvir edilir.
