Запуск dll или exe из L2PacketHack

[skymanrus]

скопировал из system32 в директорию пакет хака 2 файла User32.dll и GDI32.dll
написал код в пакет хаке

var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
procedure Init;
begin
lib := loadLibrary('User32.dll');
lib1 := loadLibrary('GDI32.dll');
Res := CallFunction(lib,'MessageBoxW',4,[nil,'Text1','text2',0]);
Res := CallFunction(lib,'GetDC',1,[0]);
ShowMessage('!'+VarToStr(Res)+'!');
CallFunction(lib1,'LineTo',3,[Res,100,100]);
CallFunction(lib,'ReleaseDC',2,[0,Res]);
FreeLibrary(lib);
FreeLibrary(lib1);
end;
begin
end.

и все заработало
потом пытаюсь подключить какую то из своих dll и ничего не происходит :(((
можете исходный код на с++ работающего dll показать
который можно к пакет хаку подключить ?
тут с++ программеры есть ?

Добавлено спустя 11 минут 50 секунд:
Re: Запуск dll или exe из L2PacketHack
можете хотябы на делфи пример длл показать
вот я к примеру пишу такой код в делфи

library DLL;

uses
SysUtils,Classes;

function Str1: integer; stdcall;
begin
result := 2;
end;

exports
Str1 index 1;

begin
end.

а в пакет хаке такой

var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
procedure Init;
begin
lib := loadLibrary('Project2.dll');
Res := CallFunction(lib1,'Str1',1,[0]);
ShowMessage('!'+VarToStr(Res)+'!');
FreeLibrary(lib);
end;
begin
end.

мне все равно от длл приходит пустота :((
что не так то делаю ???