{ PDF object is supposed to be created }
PDF.BeginDoc;
for i := 1 to 10 do
begin
    PDF.PDFPAGE_SetLineWidth(i);
    PDF.PDFPAGE_MoveTo(30, 30 + (i * 20));
    PDF.PDFPAGE_LineTo(80, 80 + (i * 20));
    PDF.PDFPAGE_LineTo(130, 30 + (i * 20));
    PDF.PDFPAGE_Stroke;
end;
PDF.EndDoc;

// PDF object is supposed to be created
PDF->BeginDoc();
for (int i = 1; i < 11; i++)
{
    PDF->PDFPAGE_SetLineWidth(i);
    PDF->PDFPAGE_MoveTo(30, 30 + (i * 20));
    PDF->PDFPAGE_LineTo(80, 80 + (i * 20));
    PDF->PDFPAGE_LineTo(130, 30 + (i * 20));
    PDF->PDFPAGE_Stroke();
}
PDF->EndDoc();

// PDF object is supposed to be created
PDF.BeginDoc();
for (int i = 1; i < 11; i++)
{
    PDF.PDFPAGE_SetLineWidth(i);
    PDF.PDFPAGE_MoveTo(30, 30 + (i * 20));
    PDF.PDFPAGE_LineTo(80, 80 + (i * 20));
    PDF.PDFPAGE_LineTo(130, 30 + (i * 20));
    PDF.PDFPAGE_Stroke();
}
PDF.EndDoc();

' PDF object is supposed to be created
PDF.BeginDoc
For i=1 To 10
    PDF.PDFPAGE_SetLineWidth i
    PDF.PDFPAGE_MoveTo 30, 30 + (i * 20)
    PDF.PDFPAGE_LineTo 80, 80 + (i * 20)
    PDF.PDFPAGE_LineTo 130, 30 + (i * 20)
    PDF.PDFPAGE_Stroke
Next
PDF.EndDoc