... Caykhungbenhat1: TMenuItem; Image1: TImage; PopupMenu1: TPopupMenu; Rename1: TMenuItem; Delete1: TMenuItem; N1: TMenuItem; N2: TMenuItem; ImageList1: TImageList; File1: TMenuItem; New1: TMenuItem; ... MidPoint(T1,T2:TypeToaDo;PhanTram:Integer):TypeToaDo;Var Dx,Dy:integer;beginDx:=T2.x -T1.x ;Dy:=T2.y -T1.y ;MidPoint.x:=T1.x +Round(Dx*PhanTram /10 0);MidPoint.y:=T1.y +Round(Dy*PhanTram /10 0);end;Procedure ... G.DSDinh[DinhDown].ToaDo.x:=x-Dx; G.DSDinh[DinhDown].ToaDo.y:=y-Dy; VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); 14 8PHẦN PHỤ LỤC Phụ lục 1 Unit chứa khai báo các cấu trúc dữ liệu cho đồ thịvà cài đặt thủ...