مشكلة في KeyPress

[elzawey2020]

السلام عليكم ورحمه الله وبركاته
اخواني الكرام
عندما اضع هذ الكود

PHP كود :

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
  begin
    Key := #0;
  end;
  if not (key in ['0'..'9', #8, #13 ,'.','غ']) then
    key := #0;
end; 


بينما عندما نستبدل حرف غ بحرف انجليزي اخر يقبله
هل في مشكلة في الكود مع اللغه العربية

[Manarsoft]

if not (key in ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then Key := #0;

[elzawey2020]

نفس المشكلة اخي مش قابل حرف الـ غ

[mobile]

السلام عليكم جرب هذا الكتاب

كود :

https://www.embarcadero.com/images/dm/technical-papers/delphi-and-unicode-marco-cantu.pdf

[elzawey2020]

بارك الله فيك اخي

[S.FATEH]

حاول باستخدام charinset

[elzawey2020]

كيف استخدامها اخي

[PLANSHARP]

كود :

 if not CharInSet(Key, ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then    Key := #0;

أيضاً جرب IsLetterOrDigit أو IsLetter, ضمن الوحدة: Character

كل هذا موجود ضمن الكتاب الذي أرفقه الأخ mobile.

[elzawey2020]

اخي نفس المشكلة لاتقبل الحرف العربي

[PLANSHARP]

ماهو المطلوب بالضبط؟ هل المطلوب هو عدم كتابة رموز؟