sgcLocalization. Jeden edytor tłumaczeń. Jedna linijka w czasie działania.

uses
  sgcLocalization_Engine;

procedure TfrmMain.ShowSelection(aCount: Integer);
begin
  // przełącz całą aplikację na niemiecki
  sgcSetLanguage('de');

  // tekst tworzony w kodzie
  ShowMessage(sgcT('The order has been saved.'));

  // to samo słowo z kontekstem, gdy wymaga własnego tłumaczenia
  lblState.Caption := sgcTC('order status', 'Open');

  // liczba mnoga: forma pasująca do aCount w bieżącym języku
  lblCount.Caption := Format(sgcTN('%d order selected',
    '%d orders selected', aCount), [aCount]);
end;