كيف يمكن التحقق من السترنغ اذا كان يحتوي حروف

[محمودد]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
const
  AUCTable: array [0 .. 49] of Word = ($0621, $0622, $0623, $0624, $0625, $0626,
    $0627, $0628, $0629, $062A, $062B, $062C, $062D, $062E, $062F, $0630, $0631,
    $0632, $0633, $0634, $0635, $0636, $0637, $0638, $0639, $063A, $063B, $063C,
    $063D, $063E, $063F, $0640, $0641, $0642, $0643, $0644, $0645, $0646, $0647,
    $0648, $0649, $064A, $064B, $064C, $064D, $064E, $064F, $0650,
    $0651, $0652);
var
  i: integer;
  Str: String;
begin
  Str := 'dfg تجريب dfg4df4gd44 dfg';
  for i := Low(AUCTable) to High(AUCTable) do
  begin
    if Pos(WideChar(AUCTable[i]), Str) > 0 then
    begin
      ShowMessage('Arabic letters detected :)');
      Break;
    end;
  end;
end; 


جدول اليونيكود ماخود من موضوع Agmcz من هنا 

PHP كود :

http://delphi4arab.net/forum/showthread.php?tid=9475 


توضيح اكتر اذا كان السترنغ يحتوي رقم لايتم التنفيد واذا كان يحتوي حروف يتم تنفيذ الشرط هذا المطلوب