Puedes hacer la siguiente prueba:
Código Delphi
[-]
var
i: integer;
begin
try
i := StrToInt(Edit1.Text);
except
on E:Exception do begin
ShowMessage('Error: ' + E.Message + ' ClassName: ' + E.ClassName);
end;
end;
end;
Con eso deberías saber si estás capturando la Excepción del tipo correcto (EConvertError).