library TestLibrary;

uses
  SysUtils,
  Classes,
  Dialogs,IdHTTP,IdMultipartFormData,superobject, lib, httpsend, ssl_openssl;


 function UPLOAD_VK(TOKEN, USERID, ALBUMID, SERVER, AID, PHOTO_LIST, HASH: WideString ): Boolean;  export;
 var IDHTTP1:TIdHTTP; DATA: TIdMultiPartFormDataStream;   MS:TMemoryStream;  RESPONSE,UPLOAD_URL:WideString;

begin

 MS := TMemoryStream.Create;
 RESPONSE :=  send('GET', 'https://api.vk.com/method/photos.getUploadServer?album_id='+ ALBUMID  +'&'+TOKEN+'&v=5.87' );
 UPLOAD_URL := SO(MS).O['response'].S['upload_url']; // ТУТ ОШИБКА SUPEROBJECT  - There is no overloaded version of 'SO' that can be called with these arguments

 MS.FREE;

end;


exports UPLOAD_VK;

begin
end.

   function UPLOAD_VK(TOKEN, USERID, ALBUMID:WideString ): Boolean;  external 'TestLibrary.dll'
implementation
{$R *.dfm}
procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
UPLOAD_VK(sEdit1.Text, sEdit2.Text,sEdit3.Text);  // тут токен, юзер айди и ID альбома
end;

function VK_CREATE_ALBUM( TOKEN, USERID, ALBUM_NAME, ALBUM_DESCRIPTION, ALBUM_VIEW,ALBUM_COMMENT:WideString ): WideString;   
var RESPONSE:WideString;
BEGIN
Response := send('GET','https://api.vk.com/method/photos.createAlbum?title='+ALBUM_NAME+'&'
+'description='+ALBUM_DESCRIPTION+'&privacy_view='+ALBUM_VIEW+'&privacy_comment='+
ALBUM_COMMENT+'&'  +UserID +'&' + token+'&v=5.87');
Result := SO(RESPONSE).O['response'].S['id']; // РЕЗУЛЬТАТ НУЖНО ПОЛУЧИТЬ В ПРОГРАММУ