#pas
function THIEdit.NoText;
var s:string;
    st:integer;
begin
   if control.text = '' then begin
     dtString(dt,'');
     Result := true;
   end else begin
     s := Control.Text;
     st := Control.SelStart;
     Result := func(LowerCase(s),dt);
     if Result then
       begin
        FPos := st;
        Fold := s;
        Exit;
       end
     else if not func(LowerCase(s)+'0',dt) then
       begin
        ChangeEvent := false; // Установка Control.Text вызывает _OnChange !!!
        Control.Text := FOld;
        Control.SelStart := FPos;
       end;
   end;
end;