Вопрос по TEdit

[MasterofCDM]

Как ограничить ввод в Edit1.Text, т.е. чтобы пользователь мог ввести только цифры и от 0 до 6?

[knight]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (ord(Key) < ord('0')) or (ord(Key) > ord('9')) then Abort;
end;

[MasterofCDM]

Спасибо!!!

[SERG1980]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'6']) then key:=#0;
end;