I am trying to add multi-language support feature into my package but meet difficulties. In the package, some components are to send command to the host server and handle its responses code. Based on received code, the components return out the corresponding message. With localization feature, the components need able to return the translated messages based on workstation locale or application defined language. It seems to be not difficult task as many 3rd party localization toolkits are available like Localizer, TsiLang and etc.
But when I do it with the localization toolkit (my boss picks Localizer as it performs pretty well in the stress test), I find this is not as easy as I think. Let me explain it in details with the simple testing package and program:

I have prepared a class TStrLibrary in the package for holding all possible codes and messages:

type
  TStrLibrary = Class(TObject)
  private
    FLib: TStringList;
    procedure PrepareLibrary;
  protected
    constructor Create;
  public
    destructor Destroy; override;
    function GetLibMessage(Const ACode: String): String;
  end;

resourcestring
  R_String = 'String 1';  // in Chinese is 'String 1 (CHI)'
  R_String2 = 'String 2'; // in Chinese is 'String 2 (CHI)'
  R_String3 = 'String 3'; // in Chinese is 'String 3 (CHI)'

procedure TStrLibrary.PrepareLibrary;
begin
  With FLib do
  begin
    Values['CODE1'] := R_String;
    Values['CODE2'] := R_String2;
    Values['CODE3'] := R_String3;
  end;
end;

function TStrLibrary.GetLibMessage(const ACode: String): String;
begin
  if FLib.IndexOfName(ACode) > -1 then
    Result := FLib.Values[ACode]
  else
    Result := '';
end;

In the program,

uses
  LocOnFly, StrLibrary;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    LStrLibrary: TStrLibrary;
  Public
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LocalizerOnFly.PopulateMenu(memuItem, 0);
  LTestingLibrary := TMessageLib.GetInstance;
end;

// after select language (e.g. Chinese),
// click Button1 to pretend receiving message code from server
procedure TForm1.Button1Click(Sender: TObject);
var
  LStr: String;
begin
  LStr := LStrLibrary.GetStr(Edit1.text);
  Memo1.Lines.Add(Edit1.text +' is translated to '+LStr);
end; 

Everything can be localized in the application but not in the components. When input "CODE1" in editbox Edit1, it always return "String 1" no matter which language I select. After consulting with Localizer support, it is normal as Localizer does not translate those not used in the application. And the resourcestrings in the TStrLibrary is loaded at the moment it being created and never after.

Does it mean there is no way to do localization in my package??

[updated on Jun 28 for blog display]