ImageEnView.MouseInteract := [ miClickCreateLineLayers, miEditLayerPoints, miMeasureLength];

if ImageEnView.Layers[layer].Kind = ielkLine then
      begin
               if event in [ielCreated] then
               begin
                  ImageEnView.MouseInteract := [  miMoveLayers, miResizeLayers ];
               end
      end
   

if ImageEnView.Layers[layer].Kind = ielkLine then

procedure TMainForm.ImageEnView1LayerNotifyEx(Sender: TObject; layer: Integer; event: TIELayerEvent);
begin
  if event = ielCreated then
    ImageEnView1.MouseInteract := [ miEditLayerPoints ];
end;