function TForm1.findObj(x,y:Integer):Integer;
var
  i,z:Integer;
begin
  z:=-1;
  for i:=0 to High(Obj) do begin
    if (x >= obj[i].x ) and (y >= obj[i].y ) and
       (x <= obj[i].x + obj[i].h ) and (y <= obj[i].y + obj[i].w) then begin

      z:=i;
      Break;
    end
  end;

  result:=z;
end;

procedure TForm1.AddObj(x,y,x1,y1,typ:Integer);
begin
  SetLength(Obj,High(obj)+2 );
  Obj[High(Obj)].x:=x;
  Obj[High(Obj)].y:=y;
  Obj[High(Obj)].h:=x1-x;
  Obj[High(Obj)].w:=y1-y;

  Obj[High(Obj)].typ:=typ;
  Obj[High(Obj)].PenStyle:=PaintBox1.Canvas.Pen.Style;
  Obj[High(Obj)].BrushStyle:=PaintBox1.Canvas.Brush.Style;

  Obj[High(Obj)].FColor:=PaintBox1.Canvas.Pen.color;
  Obj[High(Obj)].Bcolor:=PaintBox1.Canvas.Brush.color;

  ListBox1.Items.Add('Obj' + IntToStr(Typ));
  
end;

procedure TForm1.DrawObjt(typ,x1,y1,x2,y2:Integer; AMod:TPenMode);
begin
  PaintBox1.Canvas.Pen.Mode:=AMod;
  with PaintBox1.Canvas do begin
    if typ = 0 then PaintBox1.canvas.Rectangle(x1,y1,x2,y2);
    if typ = 1 then PaintBox1.canvas.Ellipse(x1,y1,x2,y2);
    if typ = 2 then PaintBox1.canvas.RoundRect(x1,y1,x2,y2,(x1 - x2) div 2,(y1 - y2) div 2);
    if typ = 3 then begin
      PaintBox1.canvas.MoveTo(x1,y1);
      PaintBox1.canvas.LineTo(x2,y2);
    end;
  end;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  if Shift = [ssLeft] then MT:=True;
  objIndex:=FindObj(x,y);

  if objIndex > -1 then begin
    PaintBox1.Canvas.Pen.Color:=Obj[objIndex].FColor;
    PaintBox1.Canvas.Pen.Style:=Obj[objIndex].PenStyle;
    
    PaintBox1.Canvas.Brush.Color:=Obj[objIndex].BColor;
    PaintBox1.Canvas.Brush.Style:=Obj[objIndex].BrushStyle;

    Edit1.Color:=PaintBox1.Canvas.Brush.Color;
    Edit1.Font.Color:=PaintBox1.Canvas.Pen.Color;
  end;

  MX:=x;MY:=y;
  ox:=mx; oy:=my;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.Panels[1].Text:=IntToStr(x) + '\' + intToStr(y);

  if MT = True then begin
    if PenS > -1 then begin
      StatusBar1.Panels[0].Text:=IntToStr(ObjIndex);
      if objIndex = -1 then begin
        DrawObjt(PenS,MX,MY,ox,oy,pmCopy);
        ox:=x; oy:=y;
        DrawObjt(PenS,MX,MY,ox,oy,pmCopy);

      end
      else begin
        MoveObj:=True;
        DrawObjt(PenS,obj[ObjIndex].x,obj[ObjIndex].y,obj[ObjIndex].x+obj[ObjIndex].h,obj[ObjIndex].y+obj[ObjIndex].w,pmNotXor);
        Obj[objIndex].x:=x;
        Obj[objIndex].y:=y;
        DrawObjt(PenS,x,y,Obj[objIndex].x+obj[ObjIndex].h,Obj[objIndex].y+obj[ObjIndex].w,pmNotXor);

      end;

    end;
  end;
 
end;