ارتباط با درگاه پرداخت اینترنتی

[دلفــي]

این روش درسته
من از کد زیر برای ارسال استفاده می کنم ولی خطای UnKnown Protocol میده !!!

procedure TForm1.Button2Click(Sender: TObject);

var

  lJSO : ISuperObject;

  lRequest: TStringStream;

  lResponse: String;

begin





  IdHTTP := TIdHTTP.Create;

  lJSO := SO('"{ "InvoiceNumber": "123456", "InvoiceDate":"2019/10/20","TerminalCode":'+

   ' "2222222", "MerchantCode": "1111111", "Amount":"10000","RedirectAddress":" https://www.'+

   'Test.ir/PaymentResult","Timestamp":"2019/10/20 15:15:13", "Action":"1003",\'+

   '"Mobile":"09122222222", "Email":"BuyerName@Sample.ir" }";');

  lRequest := TStringStream.Create(lJSO.AsString, TEncoding.UTF8);

  try

    IdHTTP.Request.ContentType := 'application/json';

    IdHTTP.Request.Charset := 'utf-8';

    try

      lResponse := IdHTTP.Post('"https://pep.shaparak.ir/Api/v1/Payment/GetToken', lRequest);

      Memo1.Text := (lResponse);

    except

      on E: Exception do

        ShowMessage('Error on request:'#13#10 + E.Message);

    end;

  finally

    lRequest.Free;

  end;

  lJSO := nil;





end;

جناب آقای کرامتی اگه امکانش هست نمونه کدی که شما استفاده می کنید جهت راهنمایی به بنده هم ارسال کنید
ممنون