StringGrid über mehrere Cols springen

[elmartino]

Hallo danke für die Hilfe. Es hat funktioniert. Aber die angesteuerte Col darf nicht die letzte in in der Row sein. Ich habe eine zusätzliche Col definiert. ColCount = 9, abgefragte Cols = 4 und 8 obwohl die Cols 3 und 7 betroffen sind.
Hier mein Code:

procedure TForm1.SpieleKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#9 : begin
if Spiele.Col = 4 then
Spiele.Col := 7
else
if Spiele.Col = 8 then
begin
Spiele.Col := 3; // 1
if Spiele.Row = 12 then
begin
Spiele.Row := 1;
end
else
begin
Spiele.Row := Spiele.Row + 1;
end;
end;
end;
end;
end;