Combobox Items Stringgrid Zelle übertragen.

[spartakus]

Hallo!
ich möchte Markierten Eintrag in Combobox nach dem ich gewählt habe ,
zusätzlich was rein schreiben und aus der ComboBox in die betreffende
Stringgrid Zelle übertragen.

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
  begin
              case  ComboBox1.ItemIndex  of
           0:   StringGrid1.cells[0,1]:=ComboBox1.Text;
           1:   StringGrid1.cells[0,2]:=ComboBox1.Text;
           2:   StringGrid1.cells[0,3]:=ComboBox1.Text;
           3:   StringGrid1.cells[0,4]:=ComboBox1.Text;
           4:   StringGrid1.cells[0,5]:=ComboBox1.Text;
       end;
       end;

hier mit kann ich die Items in die Stringgrid Zelle schreiben.
aber wenn ich in Combobox was ändere und dann versuche
in Zelle zu schreiben, Es funktioniert aber nicht!
-------
Es funktioniert dann wenn ich nur so mache:
 StringGrid1.cells[0,1] := Combobox1.Text; Danke!