... St:='Duong di Tu ' + G.DSDinh[D1].Ten + ' Den ' + G.DSDinh[D2].Ten +& apos; la:' + Cr + Lf; for i:=0 to high(DuongDi )-1 do begin st:=st+G.DsDinh[DuongDi[i]].Ten +& apos; > '; ... end; st:=st+G.DsDinh[DuongDi[high(DuongDi)]].Ten+ cr+lf; Str(ChiPhi:0:10,So);Catzerothua(So); St:=St+ 'Voi chi phi la: ' + So; Pic.Canvas.BrushCopy(rect(x,y-SubPic.Height,x+Subpic.Width,y),SubPic,Rect(0,0,SubPic.Width-1,SubPic.Height-1),RGB(255,255,255)); ... DX,DY,X,Y:Integer;P,Q1,Q2:TypeToaDo;L,TL:real;St:String;beginDX:=T2.x-T1.x;DY:=T2.y-T1.y;L:=sqrt(DX*DX+DY*DY);if L<=2*Bankinh then 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...