procedure TForm1.Button1Click(Sender: TObject);
var
hModule: Cardinal;
NetShareAdd: function(ServerName: PWideChar; Level: Cardinal; buf: PByte; parm_err: PDWORD): Cardinal; stdcall;
begin
hModule := LoadLibrary('netapi32.dll');
if LongBool(hModule) then
begin
@NetShareAdd := GetProcAddress(hModule, 'NetShareAdd');
NetShareAdd(nil, ...
end;
end;