[Nyctos Kasignete]

Сообщение от ciev

цифры от 0 до 12

Во-первых, 10,11,12 — числа, а не цифры... X)

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9': if (Edit1.Text <> '') and (StrToInt(Edit1.Text + Key) > 12) then
                Key := #0;
    #8: {};
  else Key := #0;
  end;
end;

P.S. Это условие (Edit1.Text <> ''), кстати, необязательно проверять... Можно просто

Код:

'0'..'9': if StrToInt(Edit1.Text + Key) > 12 then Key := #0;