... exit;TL:=BanKinh/L;Q1.X:=round(T1.x+DX*TL);Q1.Y:=round(T1.y+DY*TL);Q2.X:=round(T2.x-DX*TL);Q2.Y:=round(T2.y-DY*TL);T1:=Q1;T2:=Q2;DX:=T2.x-T1.x;DY:=T2.y-T1.y;L:=sqrt(DX*DX+DY*DY);If L=0 then exit;TL:=RMuiTen/L;P.X:=round(T2.x-DX*TL);P.Y:=round(T2.y-DY*TL);Q1:=Quay(P,T2 ,-3 5);Q2:=Quay(P,T2,35);pic.Canvas.Brush.Style:=bsSolid;pic.Canvas.Brush.Color:=LineColor;pic.Canvas.Pen.Color:=LineColor;If ... pic.Canvas.LineTo(T2.x,T2.y) end;Pic.Canvas.Polygon([point(T2.x,T2.y),point(Q1.x,Q1.y),point((T2.x+P.x) div 2, (T2.y+P.y) div 2) ,point(Q2.x,Q2.y)]);str(Gia:0:10,st);CatZeroThua(st);1 42 ... Pic.Canvas.TextRect(R,Toado.x-(W div 2) ,ToaDo.y-(H div 2) ,ten ) else Pic.Canvas.TextRect(R,R.Left,ToaDo.y-(H div 2) ,ten ); end;Bitmap.Free;LineColor:=RGB(0,0 ,25 5);TextColor:=RGB (25 5,0,0);for i:=0 to G.SoCanh -1 ...