s:=edit1.text; if length(s)=1 then begin тут действия если код с одной цифры end else begin если бальше 1-й end;