الاتصال بقاعدة بيانات بعيدة باستخدام Indy

فكرة رائعة جدا 

عند فتح البرنامج يقوم البرنامج بتوليد رقم الهارديسك او لوحة التحكم او  اي رقم اخر في ملف ويقوم الزبون بارسالها لك ثم بعد ذلك تقوم انت باعطائه سيريل يعمل فقط في جهازه بناءا علي رقم التي ارسله لك (السيريل يتم حفظها في قاعدة البيانات ويتم مقارنتها مع رقم الهارد )

هو كما قلت نرجو التفاعل يا شباب

procedure ConverteSerNemb;
var N, I: integer; B: char; S, R: string;
begin
  s := trim(AnsiUpperCase(Form1.Edit8.Text));
  N := length(s);
  R := '';

  for I := 1 to 15 do
    begin
      b := S;
      case b of
        'A': R := r + '1';
        'B': R := r + '2';
        'C': R := r + '3';
        'D': R := r + '4';
        'E': R := r + '5';
        'F': R := r + '6';
        'G': R := r + '7';
        'H': R := r + '8';
        'I': R := r + '9';
        'J': R := r + '1';
        'K': R := r + '2';
        'L': R := r + '3';
          'M': R := r + '4';
        'N': R := r + '5';
        'O': R := r + '6';
        'P': R := r + '7';
        'Q': R := r + '8';
        'R': R := r + '9';
        'S': R := r + '0';
        'T': R := r + '1';
        'U': R := r + '2';
        'V': R := r + '3';
        'W': R := r + '4';
        'X': R := r + '5';
         'Y': R := r + '6';
        'Z': R := r + '7';
     //   '-': R := r + '8'
        else R := R + S;

      end;
    end;

// تعليمة تشفير رقم الهارديسك
// هذا هو رقم المنتوج

  M := StrToFloat® * 5 + 12345;

// تعليمة استرجاع رقم الهاردي
//هذا هو رقم التسجيل للبرنامج
 

//هذا هو رقم التسجيل للبرنامج

  T := (M - 12345) / 5;
end;