... Delen(x,y,Width,Height:integer;DinhDown:integer):boolean;140Pic.Canvas.Font.Color:=TextColor;Pic.Canvas.Font.Size:=TextSizeTrongSo;Pic.Canvas.Brush.Style:=bsclear;Pic.Canvas.TextOut(T2.x-((T2.x-T1.x) div 3),T2.y -( (T2.y-T1.y)div 3),St);end;Function Delen(x,y,Width,Height:integer;DinhDown:integer):boolean;Var i,W,H:integer;beginfor i:=0 to G.SoDinh-1 do begin ... - New documents'end;function TForm2.DownDinh(x,y:integer;G:TypeDothi):integer;var i:integer;begin For i:=0 to G.Sodinh-1 do with G.DSDinh[i] do If Sqrt(sqr(Toado.x-x)+sqr(Toado.y-y))<20 ... then i:=i-1;delete(St,i+1,L-i);end;Function Quay(P,Tam:TypeToaDo;Goc:Real):TypeToaDo;Var Q:TypeToaDo;beginGoc:=Goc*Pi/180;P.x:=P.x-Tam.x;P.y:=P.y-Tam.y;Q.x:=Round(P.x*Cos(goc)-P.y*Sin(goc));Q.y:=Round(P.x*Sin(goc)+P.y*Cos(goc));Q.x:=Q.x+Tam.x;Q.y:=Q.y+Tam.y;Quay:=Q;end;procedure...