Misal. Mətn sahəsindən daxil edilən informasiyaya nəzarət. Forma üzərində yalnız Edit komponenti yerləşdirərək OnKeyPress hadisəsi qarşısında mausun düyməsini iki dəfə basaraq aşağıdakı kodları yazın: procedure TForml.EditlKeyPress(Sender:TObject; var Key: char); begin if not(key in ['0'..'9']) then begin Forml.Caption:= 'Siz simvol klavişini basmışsmız ';Key:= #0; end else Forml.Caption:= Key; end; Bu modulda if operatoru yerləşən sətri belə də yazmaq olar: if (Key < '0') or (Key > '9') then Proqramı işə buraxın. Bu proqramın yerinə yetirdiyi funksiya klaviaturadan yalnız rəqəmlərin daxil edilməsinə icazə verməkdir. Burada if operatoru basılan klavişi (Key) yoxlayır, əgər o, baxılan çoxluğa (0,1,..., 9 rəqəmləri) daxil deyilsə (if not (key in [' O' . .' 9'])), formanın sərlövhəsində istifadəçiyə xəbərdarlıq edilir və Key parametrinə sıfır qiyməti verir (sanki heç bir klaviş basılmamışdır). Rəqəm klavişləri basıldıqda isə ədəd sərlövhədə təsvir olunur. Edit komponenti bir sətirdən ibarət olduğu üçün, mətndə sətrin sonu işarəsi (#13 kodu) olmur və ona görə də bu komponent Enter klavişinə məhəl qoymur. Edit komponentinin Enter klavişinə reaksiya verməsi üçün kodları proqramçı özü yazmalıdır. Bu məqsədlə nümunə üçün aşağıdakı metoddan istifadə oluna bilər: 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:
