1:
2:

if Combobox1.Text = 'Schwar' then
  Combobox1.Text := 'Black';					

1:
2:

ComboBox.Items.Strings[ComboBox1.ItemIndex] := 'Black';
ComboBox.Text := 'Black';					

1:
2:
3:
4:
5:

//Ich möchte den Text ändern können, damit man nahtlos zwischen den SPrachen hin und her wechseln kann
//Das mit dem Index und Co, z.B.so?

if Combobox1.Items[Combobox.ItemIndex] = 'Schwarz' then
  Combobox1.Text := 'Black';					

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

type
  TLanguage = (lDeutsch,lEnglish);

  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    iLanguage: TLanguage;
    procedure ChangeLanguage;
  ...
  end;

...

implementation

{$R *.dfm}

const sDeutsch: array[0..3] of string = ('Schwarz','Weiß','Gelb','Blau');
      sEnglish: array[0..3] of string = ('Black','White','Yellow','Blue');

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeLanguage;
end;

procedure TForm1.ChangeLanguage;
var OldIndex, i: Integer;
begin
  OldIndex := ComboBox1.ItemIndex;
  ComboBox1.Items.BeginUpdate;
  try
    ComboBox1.Items.Clear;
    case iLanguage of
      lDeutsch: begin
                  for i := Low(sEnglish) to High(sEnglish) do
                    ComboBox1.Items.Add(sEnglish[i]);
                  iLanguage := lEnglish;
                end;
      lEnglish: begin
                  for i := Low(sDeutsch) to High(sDeutsch) do
                    ComboBox1.Items.Add(sDeutsch[i]);
                  iLanguage := lDeutsch;
                end;
    end;
  finally
    ComboBox1.Items.EndUpdate;
    ComboBox1.ItemIndex := OldIndex;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  iLanguage := lEnglish;
  ChangeLanguage;
end;