//聲明:
Chord(
DC: HDC; {設備環境句柄}
X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四個坐標點}
): BOOL;
//舉例:
procedure TForm1.FormPaint(Sender: TObject);
const
x1 = 10;
y1 = 10;
x2 = 200;
y2 = 200;
x3 = 130;
y3 = 200;
x4 = 160;
y4 = 10;
begin
Canvas.TextOut(x1,y1, '1');
Canvas.TextOut(x2,y2, '2');
Canvas.TextOut(x3,y3, '3');
Canvas.TextOut(x4,y4, '4');
Chord(Canvas.Handle, x1,y1, x2,y2, x3,y3, x4,y4);
end;
//效果圖: