InternalMove jump over when reaonly

[liuzg2]

function TKCustomGrid.InternalMove

end; mcRight: begin Inc(ACol);

       while ACol< FColCount  do       <<<<<   i  add   this    jump over  when reaonly
          begin
            if   Cols[ACol].ReadOnly then

              Inc(ACol)
              else Break;
          end;
    if ACol < FColCount then
    begin
      if FMemRow >= 0 then
        ARow := FMemRow;
      FMemCol := ACol;
    end