Gracias a los dos por contestar.
movorack, disculpa pero no entiendo tu respuesta.
En la unidad WinSpool de mi Delphi Berlín la función está declarada de la siguiente forma:
Código Delphi
[-]
{$EXTERNALSYM DeviceCapabilitiesA}
function DeviceCapabilitiesA(pDevice, pPort: LPCSTR; fwCapability: Word;
pOutput: LPSTR; DevMode: PDeviceModeA): Integer; stdcall;
o sea, las variables están como tipo LPCSTR pero no sé cómo hacer la declaración y la llamada.
Saludos