كيفية إستخراج لغة النظام ؟

[Delphiero]

السلام عليكم
كيف اعرف الدوله لمستخدم الحاسب برمجيا في دلفي

وجدت هذا الكود لاظهار اللغه ولاكن هل يوجد طريقه لاسناده بايقونه
مثلا اللغه العربيه المصريه واسناد ايقونة علم مصر وهكذا ؟

PHP كود :

procedure tform1.button1click(sender: Tobject);
var
  ident: Integer;
  mylang: Pchar;
const
  size: Integer = 250;
begin
  getmem(mylang, size);
  ident:=getsystemdefaultlangid;
  verlanguagename(ident, mylang, size);
  label1.caption:=strpas(mylang);
  freemem(mylang);
end;