procedure StartRotate(direction: (d_R, d_L));
var
  k: Integer;
begin
  case direction of
    d_L: k := VK_LEFT;
    d_R: k := VK_RIGHT;
  end;
  if not IsKeyDown(k) then
    KeyDown(k);
end;

procedure StopRotate(direction: (d_R, d_L));
var
  k: Integer;
begin
  case direction of
    d_L: k := VK_LEFT;
    d_R: k := VK_RIGHT;
  end;
  if IsKeyDown(k) then
    KeyUp(k);
end;

begin
  ActivateClient;
  Wait(100);
  StartRotate(d_R);
  Wait(1000);
  StopRotate(d_R);
end.