{ PDF object is supposed to be created }
PDF.FileName := 'test.pdf';
PDF.UseScreenDC := true;
PDF.BeginDoc;
{ use standart GDI drawing here }
Rectangle(PDF.HDC, 10, 10, 20, 20);
PDF.EndDoc;

// PDF object is supposed to be created
PDF->FileName = "test.pdf";
PDF->UseScreenDC = TRUE;
PDF->BeginDoc();
HDC hdc = (HDC)PDF->HDC;
// use standart GDI drawing here
Rectangle(hdc, 10, 10, 20, 20);
PDF->EndDoc();

// PDF object is supposed to be created
PDF.FileName = "test.pdf";
PDF.UseScreenDC = true;
PDF.BeginDoc();
Graphics gr = Graphics.FromHdc((IntPtr)PDF.HDC);
// use standart GDI+ drawing here
gr.DrawRectangle(Pens.Black, 10, 10, 10, 10);
gr.Dispose();
PDF.EndDoc();

' PDF object is supposed to be created
PDF.FileName = "test.pdf"
PDF.UseScreenDC = True
PDF.BeginDoc
// use standart GDI drawing here
Rectangle PDF.HDC, 10, 10, 20, 20
PDF.EndDoc