Type
  TDriverRequest = record;
  Wparam : dword;
  Lparam : dword;
  IOCode : byte;
End;

Procedure ReadDataAsm (PBuffer: Pointer); stdcall;
Asm
  mov edi, PBuffer
  mov ax, func //номер функции
  int 15h
End;
…
Procedure GetData;
Var
  PBuffer : Pointer;
  DriverRequest : TDriverRequest;
Begin
  GetMem(PBuffer,2048);
  …
  //Здесь я передаю в драйвер указатель на функцию и т.д.
  DriverRequest.IOCode:=$8000100;
  DriverRequest.Wparam:=DWORD(@ReadDataAsm);
  DriverRequest.Lparam:=DWORD(@PBuffer);
  //…
  WriteFile(hDriver…..);
  FreeMem(PBuffer);
End;