[opel431]

Можно ....для примера

Код:

var
  SelectedItem: Integer;

......
procedure TForm1.FormCreate(Sender: TObject);
begin
 cbb1.Items.Clear;
 cbb1.Items.LoadFromFile('File_En'); // или TStringList (cbb1.Items.AddStrings)
 cbb1.ItemIndex:=0;
end;

procedure TForm1.cbb1Change(Sender: TObject);  
begin
  SelectedItem := cbb1.ItemIndex;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
 cbb1.Items.Clear;
 cbb1.Items.LoadFromFile('File_Ru'); // или TStringList (cbb1.Items.AddStrings)
 cbb1.ItemIndex:=SelectedItem;
end;