Данные перечисляемого и интервального типов

[Cruzel]

Каким образом определить данные перечисляемого, интервального типов? Если можно - примеры. Буду очень очень очень очень очень благодарен

[phomm]

type Tdigit = 0..9; // интервальный тип
var digit : tdigit;
...
procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin
  if key in ['0'..'9'] then //  свойство edit1.maxlength = 1
  digit := ord(key)-48  // присвоение нашего диджита
  else key := #0;
end;
... // потом где-то обрабатываем диджит

перечислимый тип : http://programmersforum.ru/showthread.php?t=170166