Смотрим :
#include <winioctl.h> // Windows NT IOCTL codes
#include <vwin32.h> // Windows 95 IOCTL codes

Находим файлы .h и пишем определение констант на Паскале так же, как написано на C.

Можете взять определение констант и из C#.

Например, из winioctl.h :

#define CTL_CODE( DeviceType, Function, Method, Access ) ( \
((DeviceType) << 16) | ((Access) << 14) | ((Function) << 2) | (Method) )

#define FILE_DEVICE_MASS_STORAGE 0x0000002d

#define IOCTL_STORAGE_BASE FILE_DEVICE_MASS_STORAGE

#define METHOD_BUFFERED 0

#define FILE_ANY_ACCESS 0

#define IOCTL_STORAGE_GET_MEDIA_TYPES CTL_CODE(IOCTL_STORAGE_BASE,0x0300, METHOD_BUFFERED, FILE_ANY_ACCESS)

Вот и пишите что-то наподобие :

function CTL_CODE(DeviceType:Longword; Function:Longword; Method:Longword; Access:Longword):Longword;
begin
Result := (DeviceType shl 16) or (Access shl 14) or (Function shl 2) or (Method);
end;
...

FILE_DEVICE_MASS_STORAGE:=0x0000002d;
IOCTL_STORAGE_BASE:=FILE_DEVICE_MASS_STORAGE;
METHOD_BUFFERED:=0;
FILE_ANY_ACCESS:=0;
IOCTL_STORAGE_GET_MEDIA_TYPES:=CTL_CODE(IOCTL_STORAGE_BASE,0x0300, METHOD_BUFFERED, FILE_ANY_ACCESS);