خطأ في الكود if key = a..z then ؟

[medreg]

هذا ما فهمته من ما أشار إليه الأخ deltaaziz

PHP كود :

procedure tform1.edit1keypress(sender: Tobject; var key: Char);
begin
if upcase(key) in ['a'..'z','a'..'z'] then
  begin
    showmessage(''+upcase(key));
  end; 


وحسب إجتهادي من ما فهمت منكم الميساج يظهر حسب حالة الحرف

كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if UpCase(key)in ['a'..'z','A'..'Z'] then begin showmessage(key); end else if UpCase(key) in['ي'..'أ','ا']then begin showmessage(key); end; end;