[*Caro*]

Hola rogercito, como te han indicado puedes utilizar el evento OnExit de tu Edit y hacer la verificación ahí:

Código Delphi [-]
procedure .......Edit1Exit(Sender: TObject);
var
 valor: Real;
begin
 valor := StrToCurr(Edit1.Text);
 if Not ((valor>=5000000) and (valor<= 500000000)) then
  begin
   //Si no esta en el rango, no dejamos que salga del Edit
   Edit1.SetFocus;
   Edit1.SelStart := Length(Edit1.Text);
   Edit1.SelLength := 0;
  end;
end;

Ahora si tu rango es de 10-100 como lo ultimo que has dicho, lo manejas como Integer.

Saluditos