seltsames Phänomen im stringgrid ?!?

[Sharky]

*blubb*

Delphi-Quellcode:

procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  myACol : Integer;
begin
  StringGrid5.OnSelectCell := nil;  // Nicht das unsere OnSelectCell mehrfach läuft ;-)
  myAcol := Acol;
  CanSelect:=Not ((ACol=9) or (Acol=18) or (Acol=27));
  if not (CanSelect) then
  begin
    if (stringgrid5.col>acol) then
    begin
     stringgrid5.col:=Stringgrid5.col-2;
     DEC (myACol);
    end
    else
    begin
      stringgrid5.col:=Stringgrid5.col+2;
      Inc (myACol);
    end;
  end;
  label1.Caption:=inttostr(myacol);
  Application.ProcessMessages;
  StringGrid5.OnSelectCell := StringGrid5SelectCell;  // Fertig. Jetzt darf sie wieder aktiv werden
end;

Jetzt sollte es aber gehen