function DriverEntry(const pDriverObject: PDRIVER_OBJECT; const pRegistryPath: PUNICODE_STRING): NTSTATUS; stdcall;
var
uDeviceName: UNICODE_STRING;
pMemBuffer: PVOID;
begin
pMemBuffer := ExAllocatePoolWithTag(PagedPool, $400, TempMemTag);
if pMemBuffer <> nil then
 try
  //........... Много всего происходит
  // Собираем имя:
  RtlMoveMemory(pMemBuffer, PREFIX_DEVICE_U.Buffer, PREFIX_DEVICE_U.Length);
  RtlMoveMemory(IncPtr(pMemBuffer, PREFIX_DEVICE_U.Length), MySuperPuperName.Buffer, MySuperPuperName.Length);
  uDeviceName.Buffer := pMemBuffer;
  //...........
  Result := IoCreateDevice(..., @uDeviceName, ...);
  {$IFDEF SH_DRV_DEBUG}DrvLog_WriteMessU('IoCreateDevice', @uDeviceName, Result, 0, 0);{$ENDIF}
  if NT_SUCCESS(Result) then
   begin
    Result := IoCreateSymbolicLink(@FunctDevSymLink, @uDeviceName);
    {$IFDEF SH_DRV_DEBUG}DrvLog_WriteMessU('IoCreateSymbolicLink', @FunctDevSymLink, Result, 0, 0);{$ENDIF}
   end;
//...........