Выделение ячеек StringGrid

stringGrid1.Row:=1;
stringGrid1.Col:=2;

stringGrid1.Row:=2;
stringGrid1.Col:=3;

 stringGrid1.Row:=3;
stringGrid1.Col:=4;

StringGrid1.SetFocus;
with StringGrid1 do
SetCaretPosition(StringGrid1, 1+ListBox1.ItemIndex,  2+ListBox1.ItemIndex, 2);

var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex=k then
 begin
  StringGrid1.Selection:=TGridRect(rect(k+1,k,k+1,k));
  inc(k);
  if k=6 then ListBox1.Enabled:=false; //или что-то другое
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   ListBox1.Tag := ListBox1.ItemIndex;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
   with Sender as TListBox do
   begin
      if ItemIndex <> Tag + 1 then // Это чтобы можно было переключаться только по порядку
      begin
         ItemIndex := Tag;
         Exit
      end;
 
      Tag := ItemIndex;
      StringGrid1.Selection := TGridRect(Rect(ItemIndex + 1, ItemIndex,
                                              ItemIndex + 1, ItemIndex));
   end;
end;