Excepciones - no va por el camino que quiero!!

[Patricio]

Hola a todos tengo un pequeño problema

quiero que cuando se produzca un error realice una tarea en especial pero no va por el camino que quiero, seguramente debe ser algo simple, el codigo es algo asi

Código Delphi [-]
var
a:integer;
try
  a := StrToInt(Edit.text)
except
  EConvertError: message(..)
end;

pero no entra nunca al EConvertError, directamente salta el error de Widnows y listo.

Saludos