밑에 안녕하세요 님께서 답변 주셨는데....감사합니다.....

그런데 더 간단한 방법이 있더군여....

var s:string;
    i,code:integer
begin
  s:=edit1.text;
  val(s,i,code);
  if code<>0 then showmesage('숫자만 입력');
 
end;

이렇게 님의 방법보다는 조금더 간단한것 같군여.....

제가 

  s:=edit1.text;
  val(s,i,code);

요부분을 

  val(edit1.text,i,code);

이렇게 하니까 error가 나길래....

위의 방법으로 하니깐 되더군여...

이만...