procedure MoveCamera(direction: (d_R, d_L); amount: Integer);
var
  i, k: Integer;
begin
  if (amount < 1) then
    Exit;
  case direction of
    d_L: k := 39;
    d_R: k := 37;
  end;
  for i := 0 to (amount - 1) do
  begin
    KeyDown(k);
    Wait(1);
    KeyUp(k);
  end;
end;

begin
  ActivateClient;
  Wait(500);
  MoveCamera(d_R, 10);
  Wait(1000);
  MoveCamera(d_L, 10);
end.