Miscellany

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RIGHT then
    begin
      if db_position < 9 then
        begin
          db_position:=db_position+1;
          try
           JvDBGrid1.Columns[db_position-1].Title.Color:=clBtnFace;
          except
          end;
          JvDBGrid1.Columns[db_position].Title.Color:=clSkyBlue;
        end;
        AdoQuery1.Prior;
    end;
  if Key = VK_LEFT then
    begin
      if db_position > 0 then
        begin
          db_position:=db_position-1;
          try
            JvDBGrid1.Columns[db_position+1].Title.Color:=clBtnFace;
          except
          end;
          JvDBGrid1.Columns[db_position].Title.Color:=clSkyBlue;
        end;
        AdoQuery1.Next;
    end;
end;