1:
2:
3:
4:
5:
6:
7:

  showmessage(s1); //es wird "XYZ" ausgegeben, der Inhalt von s1
  showmessage(Combobox3.Itemsex[2].Caption); //es wird "ABC" ausgegeben, der Inhalt von Item2 vor der Zuweisung

  Combobox3.Itemsex[2].Caption  := s1; //Die Zuweisung

  showmessage(s1); //es wird "XYZ" ausgegeben, der Inhalt von s1
  showmessage(Combobox3.Itemsex[2].Caption); //es wird "ABC" ausgegeben, der Inhalt von Item2 vor der Zuweisung					

1:
2:

  combobox3.ItemIndex := 2;
  Combobox3.Itemsex[2].Caption  := s1;					

1:

Combobox3.ItemsEx.ComboItems[2].Caption := 'hallo';					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var s1: string;
begin
  s1 := 'test123';
  ComboBoxEx1.ItemsEx[2].Caption  := s1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Translate;
begin
  ComboBox1.ItemsEx[0].Caption := 'blubb';
  //weitere Controls übersetzen
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Einstellungen laden
  //Sprachdatei laden
  //etc
  Translate;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TfrmControlPanel.FormCreate(Sender: TObject);
begin
  Config := TCookieCrumblerApp.Create(nil);
  if FileExists(ExtractFilePath(Application.ExeName) + 'config.dat') then
    Config.LoadFromFile(ExtractFilePath(Application.ExeName) + 'config.dat')
  else
    Config.LoadFromFile(IncludeTrailingPathDelimiter(GetShellFolder(CSIDL_APPDATA)) + 'CapSystems\CookieCrumbler\config.dat');
  LanguageManager.LoadLanguage(LanguageManager.LanguageExists(Config.Language));

  if (Config.MainWindowLeft = -1) and (Config.MainWindowTop = -1) then
    Position := poScreenCenter
  else
    Position := poDesigned;

  Left := Config.MainWindowLeft;
  Top := Config.MainWindowTop;
end;

procedure TfrmControlPanel.FormShow(Sender: TObject);
begin
  Translate;
end;

procedure TfrmControlPanel.Translate;
begin
  with LanguageManager.CurrentLanguage do
  begin
    itmFileMenu.Caption := ReadString('frmControlPanel', 'itmFileMenu', '');
    //etc...
  end;
  RefreshAllLabels;
end;