التأكد من integer داخل TEdit

السلام عليكم

الامر هو

اما isnumber()

او isnumeric()

وهويأخذ اما true or false

و داخل القوسين نكتب اسم الedit

لكن هذه الدالة غير موجودة في الدلفي

procedure TForm1.FormCreate(Sender: TObject);
var test: string;
begin
test := inputbox('Isnumeric','Enter anything','');
if (isnumeric(test)) then
 begin
   SHowMessage('the text you entered contains numbers only');
 end
else
 begin
   showmessage('the text you entered contains characters and cannot be treated as numbers');
  end;
end;

function TForm1.IsNumeric(s: string): boolean;
var i : integer;
var test:string;
begin
 for i:= 0 to 47 do
   begin
     if (pos(chr(i),s) > 0) then
       begin
         result := false;
       end;
   end;
//here we skip the characters from 48-57 because they are the numbers characters from 0-9
 for i := 58 to 255 do
   begin
     if (pos(chr(i),s)>0) then
       begin
          result := false;
       end

 end;

end;

او

procedure IsNUmeric(const s: string): boolean;
var
 i: integer;
begin
 Result := True;
 for i:=1 to length(s) do
   if not s in ['0'..'9'] then
   begin
     Result := False;
     Break;  //Exit ?
   end;
end;