type
TFuncion = function( <<los parámetros>> ): <<tipo>>
var
H1 : THandle;
MiFuncion : TFuncion;
begin
H1 := LoadLibrary(PChar('NETAPI32.DLL')); // Puedes probar sin el PChar
if H1 > 32 then begin
@MiFuncion := GetProcAddress(H1, 'NetServerEnum');
if Assigned(MiFuncion) then
MiFuncion(<<tus parámetros>>); // lo puedes asignar auna var de <<tipo>>
end;
FreeLibrary(H1);
end;