seltsames Phänomen im stringgrid ?!?

[Matze]

Versuche mal das, kommt dann noch der Fehler:

Delphi-Quellcode:

procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);

var
  myACol : Integer;
begin
  myAcol := Acol;
  CanSelect:=Not ((ACol=9) or (Acol=18) or (Acol=27));
  if not (CanSelect) then
  begin
    if (stringgrid5.col>acol) then
    begin
      if not (stringgrid5.col <= stringgrid5.ColCount - 2) then //hier
      stringgrid5.col:=Stringgrid5.col-2;
      DEC (myACol);
    end
    else
    begin
      if not (stringgrid5.col <= stringgrid5.ColCount + 2) then  //hier
      stringgrid5.col:=Stringgrid5.col+2;
      Inc (myACol);
    end;
  end;
  label1.Caption:=inttostr(myacol);
end;