Como validar el precio en un DBtext (Double)

[tramjauer]

Muy buenas a todos, trabajo con Delphi 7 i access y para la connexion utilizo los componentes ADO. Mi duda, ya dicha es que no se como validar i donde poner el codigo para que se valide un DBedit que contiene el precio que es un Double. Para saber si el precio que he insertado o modificado es correcto utilizo lo siguiente:

Código Delphi [-]
try
Variable := StrToFloat(Edit1.Text);
except
ShowMessage('No se ha introducido un valor numérico válido');
end;

Entonces el codigo este previamente lo havia puesto en el evento de la tabla: BeforePost, pero al poner un numero(incorrecto) i cambiar de DBEdit me sale que el contenido no es un float. Espero que me puedan indicar donde poner el codigo anterior para una buena validacion y en caso de que haya alguna validacion mejor que me la puedan indicar.

Muchas gracias de nuevo.

PD: Ya he buscado en el foro pero no he encontrado nada.

Tram.