[Casperovskii]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ORD(key)=VK_UP then
 begin
  pl.Top:=pl.Top-20;
  ply:=ply-1;
 end;

...

И так на каждую кнопку. Можно подробнее, какие значения скроллбокса и на что поставить.