Мультипоточность OTL

var
  user_id, access_token: string;
  Work: Boolean = False;
 
resourcestring
  vkUploadFilter = 'Аудио MPEG Layer 3|*.mp3| Все файлы|*.*';
  vkBaseMethod = 'https://api.vk.com/method/';
  vkUploadError =
    'An error: "%s" occurred while uploading file with name: "%s"';
  vkUploadSucess = 'File "%s" has been successfully uploaded!';
  vkVersion = '5.29';
  vkAuthURL =
    'https://oauth.vk.com/authorize?client_id=4206083&redirect_uri=https://oauth.vk.com/blank.html&scope=17420&display=mobile&v=5.29&response_type=token';
 
implementation
 
function Get(const URL: string): string;
var
  HTTP: TIdHTTP;
begin
  Result := '';
  if not URL.IsEmpty then
  begin
    HTTP := TIdHTTP.Create(nil);
    try
      HTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
      Result := HTTP.Get(TIdURI.URLEncode(URL));
    finally
      FreeAndNil(HTTP);
    end;
  end;
end;
 
function Post(const URL, FileName: string): string;
var
  HTTP: TIdHTTP;
  MultiPart: TIdMultiPartFormDataStream;
begin
  Result := '';
  if not(URL.IsEmpty and FileName.IsEmpty) then
  begin
    HTTP := TIdHTTP.Create(nil);
    MultiPart := TIdMultiPartFormDataStream.Create;
    try
      HTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
      MultiPart.AddFile('file', FileName);
      Result := HTTP.Post(TIdURI.URLEncode(URL), MultiPart);
    finally
      FreeAndNil(HTTP);
      FreeAndNil(MultiPart);
    end;
  end;
end;
 
function ExecuteDialog(Files: TStringList): Boolean;
var
  Dialog: TOpenDialog;
begin
  Result := False;
  Dialog := TOpenDialog.Create(nil);
  try
    Dialog.Options := [ofFileMustExist, ofAllowMultiSelect];
    Dialog.Filter := vkUploadFilter;
    if Dialog.Execute then
    begin
      Files.Assign(Dialog.Files);
      Result := True;
    end;
  finally
    FreeAndNil(Dialog);
  end;
end;
 
function IsError(const AInput: string): Boolean;
begin
  Result := AInput.Contains('error');
end;
 
function ErrMessage(const AInput, AFileName: string): string;
begin
  Result := Format(vkUploadError, [SO(AInput)['error.error_msg'].AsString,
    AFileName]);
end;
 
function getUploadServer: string;
begin
  Result := Get(vkBaseMethod + 'audio.getUploadServer?access_token=' +
    access_token);
end;
 
function UploadAudio(const AInput, AFileName: string): string;
begin
  Result := Post(SO(AInput)['response.upload_url'].AsString, AFileName);
end;
 
function SaveAudio(const AInput: string): string;
var
  JSON: ISuperObject;
begin
  JSON := SO(AInput);
  Result := Get(vkBaseMethod + 'audio.save?v=' + vkVersion + '&access_token=' +
    access_token + '&user_id=' + user_id + '&server=' + JSON['server'].AsString
    + '&audio=' + JSON['audio'].AsString + '&hash=' + JSON['hash'].AsString);
end;
 
end.