السلام عليكم السورس https://github.com/zekiriabd/Delphi/blob/master/MultipleLanguages.md فقط ملاحضة المكون مجاني لحد الان الملاحظة ا لثانية هي ان الكود الذي و ضعته للمحاذات نحو اليمين لم يعجبني لكن هو فقط مؤقت procedure TForm5.FormCreate(Sender: TObject); var elm :TControl; begin IF Lang1.Lang.ToUpper() = ‘AR’ THEN BEGIN for elm in GridPanelLayout1.Controls do begin if elm.InheritsFrom(TEdit)then (elm as TEdit).TextAlign := TTextAlign.Trailing; if elm.InheritsFrom(TLabel)then (elm as TLabel).TextAlign := TTextAlign.Trailing; end; END; end; رابطة درس رؤوف https://www.youtube.com/watch?v=O3D2QDpeRfo رابط تحميل المكون من الموقع الرسمي http://www.fmxrtl.com/purchase.php