Посылаем адресс компонента в dll

[Altera]

Привет всем!
Пишу вот так:
EXE

...
testing: procedure(p: pointer); stdCall;
...
hand := loadLibrary(pChar(extractFilePath(application.ExeName)+'dll\dll.dll'));
@testing := getProcAddress(hand, 'loadingImage');
...
testing(@image1);
...

DLL

...
procedure loadingImage(p: Pointer); stdCall;
begin
   tImage(p^).picture.loadFromFile('d:\documents\atom.bmp');
end;
...
exports loadingImage;
...

Но не получаеться.



Надеюсь, из кода ясно, что я хочу провернуть?

Как мне это сделать? Спасибо заранее!