كيف اتخلص من ' Is Not Valid Integer Value

[Polia]

كيف اتخلص من هاته الرسالا التي ازعجتني 
صور في المرفقات

اريد وضع شرط if  علما ان الحقل لا يستقبل الا رقم فعند ادخال حرف او اي ASCII عدا الأرقام يخرج لليوزر ايرور يخبره بادخال ارقام لا غير و العكس صحيح واعدروني لكثرة ااسئلتي

---

حاليا  انا احوم علي موقع CRACKME.DE  انزل برامج واحاول دراستها فان لم استطع استعن بالحلول الموضوعة احاول دراستها مرة اخري وفهمها وبرمجة كيغن لها 
اضرب عصفورين بحجر التنقيح و البرمجة ما رايكم شباب اجتاج تحفيزكم

[TeRcO]

تفضل.... أرجو ان يكون المطلوب:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not  (Key in ['A'..'Z', 'a'..'z']) then
 begin
    ShowMessage('Plz ..Use Only Letters');
      Key := #0;
  end;
  end;
////////////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not  (Key in ['0'..'9']) then
 begin
    ShowMessage('Plz ..Use Only Numbers');
     Key := #0;
  end;
  end;
////////////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not  (Key in ['A'..'Z', 'a'..'z',' ','0'..'9']) then
 begin
    ShowMessage('Plz ..Use Only Letters and Numbers');
    Key := #0;
  end;
end;

[Polia]

فضل.... أرجو ان يكون المطلوب:

شكرا لك عزيزي