if ImageEnView1.CurrentLayer.Locked then
    exit;
  if ImageEnView1.LayersCurrent = 0 then
    exit;

  case CharCode of
    VK_LEFT :
    begin
      ImageEnView1.CurrentLayer.PosX := ImageEnView1.CurrentLayer.PosX - 1;
      ImageEnView1.Update;
      Handled := True;
    end;
    VK_RIGHT :
    begin
      ImageEnView1.CurrentLayer.PosX := ImageEnView1.CurrentLayer.PosX + 1;
      ImageEnView1.Update;
      Handled := True;
    end;
    VK_UP :
    begin
      ImageEnView1.CurrentLayer.PosY := ImageEnView1.CurrentLayer.PosY - 1;
      ImageEnView1.Update;
      Handled := True;
    end;
    VK_DOWN :
    begin
      ImageEnView1.CurrentLayer.PosY := ImageEnView1.CurrentLayer.PosY + 1;
      ImageEnView1.Update;
      Handled := True;
    end;
  end;
  if (ssShift in Shift) then
  begin
    case CharCode of
      VK_LEFT :
      begin
        ImageEnView1.CurrentLayer.PosX := ImageEnView1.CurrentLayer.PosX - 10;
        ImageEnView1.Update;
        Handled := True;
      end;
      VK_RIGHT :
      begin
        ImageEnView1.CurrentLayer.PosX := ImageEnView1.CurrentLayer.PosX + 10;
        ImageEnView1.Update;
        Handled := True;
      end;
      VK_UP :
      begin
        ImageEnView1.CurrentLayer.PosY := ImageEnView1.CurrentLayer.PosY - 10;
        ImageEnView1.Update;
        Handled := True;
      end;
      VK_DOWN :
      begin
        ImageEnView1.CurrentLayer.PosY := ImageEnView1.CurrentLayer.PosY + 10;
        ImageEnView1.Update;
        Handled := True;
      end;
    end;
  end;  //if (ssShift in Shift) then

procedure Tfmain.ImageEnView1SpecialKey(Sender: TObject; CharCode: Word; Shift: TShiftState; var Handled: Boolean);
begin
  if ( ssShift in Shift ) and ( ImageEnView1.LayersCurrent > 0 ) then
    case CharCode of
      VK_LEFT :
        begin
          ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX := ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX - 10;
          ImageEnView1.Update;
          Handled := True;
        end;
      VK_RIGHT :
        begin
          ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX := ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX + 10;
          ImageEnView1.Update;
          Handled := True;
        end;
      VK_UP :
        begin
          ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY := ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY - 10;
          ImageEnView1.Update;
          Handled := True;
        end;
      VK_DOWN :
        begin
          ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY := ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY + 10;
          ImageEnView1.Update;
          Handled := True;
        end;
    end;
end;

procedure TMDIChild.ImageEnView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Result: Boolean;
begin
  Result := GetKeyState(VK_SHIFT) < 0;
  if Result then
  begin
    if ImageEnView1.LayersCurrent > 0 then
    begin
      if GetKeyState(VK_LEFT) < 0 then
      begin
        ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX :=
           ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX - 10;
      end;
      if GetKeyState(VK_RIGHT) < 0 then
      begin
        ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX :=
           ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX + 10;
      end;
      if GetKeyState(VK_UP) < 0 then
      begin
        ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY :=
           ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY - 10;
      end;
      if GetKeyState(VK_DOWN) < 0 then
      begin
        ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY :=
           ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY + 10;
      end;
      ImageEnView1.Update;
    end;
  end;
end;