case Verzweigungsproblem

[Mucki]

Hallo.
Habe da ein (peinliches) Problem:

Wert in Stringgrid1.cells [1,1] kann mehrere Werte annehmen (1, 2, 3)
wenn das geschieht, soll stringgrid2.cells [1,1] die unteren Beispiele anzeigen.

So wie im Quelltext geht es aber nicht!

Jemand ne Idee/Lösung?

Delphi-Quellcode:

var
x : integer;
begin
stringgrid1.cells [1,1] := inttostr(x);
case x of
 1 : stringgrid2.cells [1,1] := 'Es geht so';
 2 : stringgrid2.cells [1,1] := 'oder so';
 3 : stringgrid2.cells [1,1] := 'oder halt so';
end;