{ PDF object is supposed to be created }
for i := 7 to 15 do
begin
    PDF.SetTextHorizontalScaling(i * 10);
    PDF.ShowTextAt(20, 20 * (i - 6), 'Text string. Scale %: ' + IntToStr(i * 10));
end;
PDF.SaveToFile('test.pdf', true);

// PDF object is supposed to be created
for (int i = 7; i < 16; i++)
{
    PDF->SetTextHorizontalScaling(i * 10);
    CString str;
    str.Format("Text string. Scale %%: %d", i * 10);
    PDF->ShowTextAt(20, 20 * (i - 6), (LPCTSTR)str);
}
PDF->SaveToFile("test.pdf", true);

// PDF object is supposed to be created
for (int i = 7; i < 16; i++)
{
    PDF.SetTextHorizontalScaling(i * 10);
    string str = String.Format("Text string. Scale %: {0}", i * 10);
    PDF.ShowTextAt(20, 20 * (i - 6), str);
}
PDF.SaveToFile("test.pdf", true);

' PDF object is supposed to be created
For i = 7 To 15
    PDF.SetTextHorizontalScaling i * 10
    PDF.ShowTextAt 20, 20 * (i - 6), "Text string. Scale %: " & (i * 10)
Next
PDF.SaveToFile "test.pdf", true