seltsames Phänomen im stringgrid ?!?

[Sharky]

Neue Version:

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(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 (stringgrid1.col>acol) then
    begin
     stringgrid1.col:=Stringgrid1.col-2;
     DEC (myACol);
    end
    else
    begin
      stringgrid1.col:=Stringgrid1.col+2;
      Inc (myACol);
    end;
  end;
  label1.Caption:=inttostr(myacol);
end;