3 raquo ;; end ;; TForm1.Edit11KeyPress (Sender: TObject; var Key: Char);
begin
case key of
0 .. 9 raquo ;:;
# 8:;
. :If length (Edit10.Text)=0 then key:=# 0; key:=# 0 ;;; TForm1.Button3Click (Sender: TObject) ;. Text:= 0 raquo ;;. ColCount:=2 ;. RowCount:=2; .Cells [0,1]:= raquo ;;
StringGrid1.Cells [1,1]:= raquo ;;;
end.
