Зацените мой MessageBox

[Altera]

Вот учесля работать с dll и написал свой messageBox...
Имя "messageShow";
Пораметры
handle: tHandle; text, caption: pChar; icon: tHandle; buttons: messageButtons;

Пример:

...
messageButtons = (mbOk, mbOkCancel, mbYes, mbYesNo, mbYesNoCancel);
... 
var
  test_form2: Ttest_form2;
  f_show: function(handle: tHandle; text, caption: pChar; icon: tHandle;
  buttons: messageButtons): byte; stdCall;
  h: thandle;
implementation

{$R *.dfm}

{ Ttest_form2 }

procedure Ttest_form2.Button1Click(Sender: TObject);
var
i: integer;
begin
   h := loadLibrary(pChar(extractFilePath(application.ExeName)+'..\atomMessageBox\atomMessageBox.dll'));
   @f_Show := getProcAddress(h, 'messageShow');
   i := f_show(handle, pChar(memo1.text), 'Диалог', application.Icon.Handle, mbYesNoCancel);
   if i = mrYes then showMessage('YES');
end;

[beegl]

подскажите пожалуйста, куда кинуть dll-ку, чтоб заработало?