int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                                 LPSTR lpszCmdLine, int nCmdShow)
{   
  HINSTANCE pdftools=NULL; // pdftool.dllのインスタンスハンドル
  pWritePDFImage  WritePDFImage=NULL; // WritePDFImage API

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     WritePDFImage = (pWritePDFImage)GetProcAddress(pdftools, 
                                                 "WritePDFImage");  

       // ビットマップファイルをPDFに変換
       WritePDFImage("c:\\test.bmp","c:\\test.txt");

      FreeLibrary(pdftools);
   }
   return(0);
}

procedure TForm1.Button1Click(Sender: TObject);
begin
 // ビットマップファイルをPDFに変換
 WritePDFImage('c:\test.bmp','c:\test.pdf');
end;

Private Sub Command1_Click()
Dim ret As Long
 ' ビットマップファイルをPDFに変換
 ret = WritePDFImage("c:\test.bmp", "c:\test.pdf")
End Sub