[roman]

Otras formas de hacerlo

Código Delphi [-]
var
  V: Integer;

begin
  if TryStrToInt(Edit1.Text, V) then
    ShowMessage('Esto es un número')
  else
    ShowMessage('Esto no es un número');
end;

Código Delphi [-]
var
  V: Integer;
  Code: Integer;

begin
  Val(Edit1.Text, V, Code);

  if Code = 0 then
    ShowMessage('Esto es un número')
  else
    ShowMessage('Esto no es un número');
end;

La segunda forma tiene la ventaja de servir para tipos reales también sustituyendo V por un tipo real.

// Saludos