... Caykhungbenhat1: TMenuItem; Image1: TImage; PopupMenu1: TPopupMenu; Rename1: TMenuItem; Delete1: TMenuItem; N1: TMenuItem; N2: TMenuItem; ImageList1: TImageList; File1: TMenuItem; New1: TMenuItem; ... i<=(G.SoDinh -1) do if not Delen(x,y,imagelist1.Width,imagelist1.Height,i) then i:=i +1 else begin Accept:=False; i:=G.SoDinh; end;If Accept then begin VeDoThi(G,Pic,imagelist1); Pic.Canvas.Draw(x+20,y,Image1.Picture.Bitmap); ... 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...