Problema con excepción

[franroju]

Buenas gente. Pequeño problemilla.

Tengo un edit, cuyo texto debo pasarlo a nro. decimal para guardarlo en una tabla. Para chequear que el usuario escriba un nro. decimal y no cualquier cosa, hice lo siguiente:

Código Delphi [-]
try
      subtotal := StrToFloat(Edit6.Text);
      except
        on E: Exception do
        begin
          Edit6.Text := '';
          Edit6.SetFocus;
        end;
 end;

La cuestión es que no me lo toma, arroja error igual cuando no puede castearlo. Me pareció más fácil realizar esto que ponerme a chequear los caracteres que ingresa, que si son nros, que si es una coma, etc, etc. O capaz hay alguna solución mejor???

Toda ayuda es aceptable, ja. Uso delphi 7

Muchas gracias