Hola emeceuy,
Creo entender lo que pides.
Una manera de conseguir lo que pides, es declarar un tipo que acepte esto, se lo conoce como del tipo enumerado.
Código Delphi
[-]type
TSoloAyB: 'A'..'B';
TRango: 1..10;
E incluso puedes usar estos "rangos" para otros tipos. Por ejemplo:
Código Delphi
[-]
Type
TArray10Int = array[TRango] of integer;
TArray2Str = array[TSoloAyB] of char;
La otra opción es que dentro de la función incorpores un control del parámetro es decir IFs, como bien dijo Emilio.
Saludos,