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

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

       // テキストファイルをＰＤＦに変換
       WritePDFText("c:\\test.txt","c:\\test.pdf");

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

procedure TForm1.Button1Click(Sender: TObject);
begin
 // テキストファイルをPDFに変換
 WritePDFText('c:\test.txt','c:\test.pdf');
end;

Private Sub Command1_Click()
Dim ret As Long
 ' テキストファイルをPDFに変換
 ret = WritePDFText("c:\test.txt", "c:\test.pdf")
End Sub