الفريق العربي للهندسة العكسية

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;