Подгрузка написанной CUDA *.dll в Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Menus, Spin, Gauges;
 
type
  TForm1 = class(TForm)
    btn2: TButton;
    btn3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    btn1: TButton;
    //g2: TGauge;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  type
  PPrt = ^ TPrt;
  TPrt = array [0..0] of Byte;
  TInit_Cuda_Reverse = function (Ptr: Byte; T:Integer):Byte; cdecl;
var
  myFile, myFileSave: File ;
  Handle01: HWND; {дескрипторы загружаемых библиотек}
  f:integer;
  Cuda_Reverse:TInit_Cuda_Reverse;
  Prt, Prt1:PPrt;
  Filename, FilenameSave:string;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn2Click(Sender: TObject);
begin
if dlgOpen1.Execute then
  begin
  Filename:=dlgOpen1.FileName;
  Form1.Edit1.Text := Filename;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Handle01:= LoadLibrary(PChar('dllexp.dll'));
@Cuda_Reverse:=GetProcAddress(Handle01,'StartReverse8');
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
f2:integer;
f3:integer;
BytesWrite: DWORD;
FileHandle:THandle;
begin
 f:=1000000;
 GetMem(Prt,f);
 GetMem(Prt1,f);
 f3:=0;
 AssignFile(myFile,Filename);
 FileHandle:= CreateFile(PChar(FilenameSave),
                            GENERIC_WRITE,
                            0,
                            nil,
                            CREATE_ALWAYS,
                            FILE_ATTRIBUTE_NORMAL,
                            0);
 Reset(myFile,1);
 f2:=FileSize(myFile);
 f3:=f2;
   while not Eof(myFile) do
   begin
       BlockRead(myFile,Prt[0],f);
       Cuda_Reverse(Prt[0],f) ;
       WriteFile(FileHandle, Prt[0],f,BytesWrite, nil);
       f2:=f2-f;
       if (f2<f) then f:=f2;
      // Form1.g2.Progress :=   Round((100*((f3-f2)/100))/(f3/100));
   end;
   CloseHandle(FileHandle);
   Application.ProcessMessages;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
 if dlgSave1.Execute then
    begin
    FilenameSave:=dlgSave1.FileName;
    Form1.Edit2.Text:= FilenameSave;
    end;
end;
 
end.

TInit_Cuda_Reverse = function (Ptr: PByte; T:Integer):Integer; cdecl;