
(*
 Delphi Object and Component Reference
#{bmc bm10.BMP} VertScrollBar example
The following example demonstrates form scrolling with the PgUp and PgDn keys.
*) 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
  PageDelta = 10;
begin
  With VertScrollbar do
    if Key = VK_NEXT then
      Position := Position + PageDelta
    else if Key = VK_PRIOR then
      Position := Position - PageDelta;
end; 
