seltsames Phänomen im stringgrid ?!?

[Matze]

Mist, hab das mit den gesperrten SPalten übersehen, probiere mal das hier:

Delphi-Quellcode:

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

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