Código Delphi - Chamar Uma Função em Uma DLL

Código Delphi

// Chamar Uma Função em Uma DLL.

Código

procedure TForm1.Button1Click(Sender: TObject); type TCallMeDll = function(a,b: Integer): string;
var CallMeDll: TCallMeDll;
FuncPtr: TFarProc;
hDll: THandle;
result: string;
begin
hDll:=LoadLibrary('DelphiBoy.dll');
FuncPtr:=GetProcAddress(hDLL,'CallMe');
@CallMeDll:=FuncPtr;
if @CallMeDll <> nil then
result:=CallMeDll(4,5);
FuncPtr:=nil;
FreeLibrary(hDll);
end;