eingabe[1] in ['0'..'15'] in einem Zeichen kann nur 0 bis 9 drinstehen, keine 15 !
Warum nicht
Delphi-Quellcode:
if (Edit.Text <> '') then
begin
if StrToIntDef (Edit.text, 16) in [0..15] then showmessage ('0 bis 15');
end
else showmessage ('da steht gat nix drin !!!');