Funktionspointer help

library MoveFunction;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs;

function MoveToPos (PosX: Single; PosY: Single; PosZ:Integer):Single;stdcall;
begin
  asm
    push PosX
    push PosY
    push PosZ
    call [$00A12345] // bsp.
  end;
end;

exports
  MoveToPos;
begin
end.

function GetProcessID(Exename: string): DWORD;
var
  hProcSnap         : THandle;
  pe32              : TProcessEntry32;
begin
  result := 0;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap <> INVALID_HANDLE_VALUE then
  begin
    pe32.dwSize := SizeOf(ProcessEntry32);
    if Process32First(hProcSnap, pe32) = true then
    begin
      while Process32Next(hProcSnap, pe32) = true do
      begin
        if pos(Exename, pe32.szExeFile) <> 0 then
          result := pe32.th32ProcessID;
      end;
    end;
    CloseHandle(hProcSnap);
  end;
end;

function GetProcessHandleFromID(ID: DWORD): THandle;
begin
  result := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or PROCESS_VM_WRITE
    or PROCESS_VM_READ, False, ID);
end;


var
  ProcessID         : Integer;
  hProcess          : THandle;
  DLLPath           : string;
  pDLLPath          : Pointer;
  BytesWritten      : Cardinal;
  ThreadID          : Cardinal;
  DLLFILENAME       : string;
begin
  DLLFILENAME:= 'XM.dll';  // DLL NAME
  ProcessID := GetProcessID('Gw.exe');
  Writeln ('DLL Injector');
  DLLPath := ExtractFilePath(ParamStr(0)) + '\' + DLLFILENAME;
  if ProcessID <> 0 then
  begin
    hProcess := GetProcessHandleFromID(ProcessID);
    if hProcess <> 0 then
    begin
      pDLLPath := VirtualAllocEx(hProcess, nil, Length(DLLPath), MEM_COMMIT, PAGE_EXECUTE_READWRITE);
      if Assigned(pDLLPath) then
      begin
        if WriteProcessMemory(hProcess, pDLLPath, PChar(DLLPath), Length(DLLPath), BytesWritten) then
        begin
          if CreateRemoteThread(hProcess, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA'),
            pDLLPath, 0, ThreadID) <> 0 then
          begin
            CloseHandle(hProcess);
            Writeln('DLL injected... ' + DLLFILENAME);
          end
          else
          Writeln('CreateRemoteThread error');
        end
        else
        Writeln('WriteProcessMemory error');
      end
      else
      Writeln('VirtualAllocEx error');
    end
    else
    Writeln('hProcess error');
  end
  else
  Writeln('ProcessID error');
  Readln;
end.