try ... except... no toma la excepcion

[saldanaluis]

Les agradecería si alguien me puede abrir los ojos en este punto. Tengo un codigo con try... except que no esta tomando la excepción y la maneja el handler interno.. Les pongo el código que tengo..

Código Delphi [-]
 
procedure TFrmTransacs.EdtCostoUnExit(Sender: TObject);
begin
Try
  Costo_Unit_Trans := StrtoFloat(EdtCostoUn.Text);
except
  on EConvertError do
    begin
    ShowMessage(EdtCostoUn.Text + ' No es un valor numerico. Favor de corregir');
    EdtCostoUn.SetFocus;
    end;
end;
end;

Gracias por sus respuestas y comentarios.
Luis