[ALF]

Помогите вывести текст в игру.
Вот мой код, но он не работает.
Буду очень благодарен за помощь.

library MyFirstDLL;
uses
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Windows;
const
adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';
type
TBOB = procedure(x,y:Integer; text, font:PChar; color:TColor); stdcall;


procedure HelloWorld();
var
        DLLInstance : THandle;
        BOB: TBOB;
begin
        { загружаем DLL }
        DLLInstance := LoadLibrary('Engine.dll');

   @BOB := GetProcAddress(DLLInstance, adres);
   BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);
    FreeLibrary(DLLInstance);


end;

{Какой-нибудь код, в котором используется SomeBuffer.}

exports
        HelloWorld;
begin
end.