Hab mir nur die Rümpfe angeschaut und weiß nicht ob es evt daran liegt, ABER...
Code:
BOOL DriverPrint_OpenCard ( PCard pCard, LPTSTR pPrinterName )
function DriverPrint_OpenCard(pCard: TCard; pPrinterName: lptstr): Bool;
..
"PCard pCard" <> "pCard: TCard"
Richtig:
"PCard pCard"
= "pCard: PCard" (wobei PCard = ^TCard)
= "var pCard: TCard"