Know if a string contains a valid number

Function IsThisStringANumber ( NumStr : String ) : bool ;

Begin

   result := true ;

   Try

      StrToInt ( NumStr ) ;

   Except

      result := false ;

   End ;

End ;

Example :

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Begin

   If IsThisStringANumber ( Edit1.Text ) Then

      ShowMessage ( Edit1.Text )

   Else

      ShowMessage ( 'Not a valid Number' ) ;

End ;