كيف أجعل برنامجي يضيف اللغة العربية تلقائيا

كود :

procedure TForm3.FormCreate(Sender: TObject);
begin
    BiDiMode := bdRightToLeft;
    Font.Charset := ARABIC_CHARSET;
    Position := poScreenCenter;
    button1.BiDiMode := bdRightToLeft;
    button1.Font.Charset := ARABIC_CHARSET;
    Panel1.BiDiMode := bdRightToLeft;
    Panel1.Font.Charset := ARABIC_CHARSET;
    GroupBox1.BiDiMode := bdRightToLeft;
    GroupBox1.Font.Charset := ARABIC_CHARSET;
    RadioGroup1.BiDiMode := bdRightToLeft;
    RadioGroup1.Font.Charset := ARABIC_CHARSET;
    RadioButton1.BiDiMode := bdRightToLeft;
    RadioButton1.Font.Charset := ARABIC_CHARSET;
    RadioButton2.BiDiMode := bdRightToLeft;
    RadioButton2.Font.Charset := ARABIC_CHARSET;
    CheckBox1.BiDiMode := bdRightToLeft;
    CheckBox1.Font.Charset := ARABIC_CHARSET;
    CheckBox2.BiDiMode := bdRightToLeft;
    CheckBox2.Font.Charset := ARABIC_CHARSET;
    Memo1.BiDiMode := bdRightToLeft;
    Memo1.Font.Charset := ARABIC_CHARSET;
    edit1.BiDiMode := bdRightToLeft;
    edit1.Font.Charset := ARABIC_CHARSET;
    label1.BiDiMode := bdRightToLeft;
    label1.Font.Charset := ARABIC_CHARSET;
    BitBtn1.BiDiMode := bdRightToLeft;
    BitBtn1.Font.Charset := ARABIC_CHARSET;

    caption := 'النافذة الثانية';
    button1.Caption := 'رجوع الى النافذة الرئيسية';
    Panel1.Caption := 'هذا بانال';
    GroupBox1.Caption := 'هذا قروب بوكس';
    RadioGroup1.Caption := 'هذا راديو قروب';
    RadioButton1.Caption := 'هذا راديو بوتو';
    RadioButton2.Caption := 'هذا راديو بوتو2';
    CheckBox1.Caption := 'هذا شاك بوكس1';
    CheckBox2.Caption := 'هذا شاك بوكس2';
    Memo1.Lines.Add('هذه سطور ميمو');
    Memo1.Text := 'هذا ميمو';
    edit1.Text := 'هذا اديت';
    label1.Caption := 'هذه لابل';
    RadioGroup1.Items.Strings[0] := 'هذا أول اتام';
    RadioGroup1.Items.Strings[1] := 'هذا ثاني اتام';
    RadioGroup1.Items.Strings[2] := 'هذا ثالث اتام';
    BitBtn1.Caption := 'هذا بيت تيتن';
end;

كود :

program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

procedure GdiInitializeLanguagePack(LoadedShapingDLLs:integer); stdcall; external 'gdi32.dll' ;

//  procedure InitBKNEnableArabic();
//stdcall; external 'EnableArabic.dll';

{$R *.res}

begin
 GdiInitializeLanguagePack(0); // تعمل ولكن لا تقدم ولا تأخر
  //InitBKNEnableArabic();  // غير موجود dll ملف دي ال ال 

  Application.Initialize;
 // لا تعمل
 // SetThreadLocale(MAKELCID(MAKELANGID(LANG_GREEK,SUBLANG_DEFAULT),SORT_DEFAULT));
 // SetThreadLocale(1025); // هذه وجدتها في المنتدى هنا ولم تعمل
 // GetFormatSettings; // هذه وجدتها في المنتدى هنا ولم تعمل أيضا
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.