Установка интервала вводимых зачений в Edit

[Таракашка]

Язык программирования- Делфи
Подскажите пожалуйста, как установить интервал вводимых значений в Edit, интервал таков 0,00003-0,00005,
Не ругайтесь, если такая тема уже была.

[Stilet]

Никак. Эдит для этого не предназначен.
Можно после ввода проверять попадает ли число в этот предел:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var d:double;
begin
  d:=0;
  if (key=#13)and(not TryStrToFloat(Edit1.Text,d))or((d<0.00003) or (d>0.00005) ) then
   ошибка
end;

[Таракашка]

Спасибо большое, Вам