getProgramNumbers.pas

uses
  httpsend,
  SysUtils,
  Dialogs,
  ssl_openssl;

{ TProgramNumbers }

class function TProgramNumbers.getProgramNumbers(resourcePath: string): TStringList;
var
  HTTP: THTTPSend;
begin
  Result := TStringList.Create;

  HTTP:=THTTPSend.Create;
  try
    if HTTP.HTTPMethod('GET', resourcePath) then
    begin
      Result.LoadFromStream(HTTP.Document);
      ShowMessage(Result.Text);
    end;
  finally
    FreeAndNil(HTTP);
  end;
end;