Problema al validar enteros

[rgstuamigo]

Y por que no utilizas la funcion TryStrToInt de la unidad SysUtils para hacer la conversion: ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Valor_En_Entero:Integer;
begin
 if TryStrToInt(Edit1.Text,Valor_En_Entero) then //if tengo exito al convertir
    ShowMessage('Ha sido todo un exito la conversion')
 else ShowMessage('Ha sido un fracaso la conversion');

end;

Saludos...