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 ShowMessage('Ha sido todo un exito la conversion')
else ShowMessage('Ha sido un fracaso la conversion');
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7