procedure TMainMenu_Form.Button1Click(Sender: TObject);

var
      Response : String ;

      HTTPClient : TIdHTTP ;

      StrStreamm : TStringStream ;

      wMsg,iToken : String ;

begin

     iToken := 'Zl79QtYAIJyseoj2D272mv0fm4XwvwiKi0hrReCjyfC' ;

     wMsg := 'message='+Edit_msg.Text+''+'&stickerPacageID='+Edit_PID.Text+''+'&stickerID='+Edit_SID.Text+'' ;

     StrStreamm := TStringStream.Create(wMsg,TEncoding.UTF8) ;  // ------- Error 1
     try

        HTTPClient := TIdHTTP.Create  ;

        try

           HTTPClient.HandleRedirects := True ;

           HTTPClient.Request.Method := POST ;  // ------- Error 2

           HTTPClient.Request.ContentType := 'application/x-www-form-urlencoded';

           HTTPClient.Request.CustomHeaders.FoldLines := False ;

           HTTPClient.Request.CustomHeaders.Add('Authorization:Bearer '+iToken) ;

           Response := HTTPClient.Post('https://notify-api.line.me/api/notify',StrStreamm) ;// ------- Error 3

       finally

          HTTPClient.Free ;

       end ;

    finally

       StrSteem.Free ;

    end ;

end;

ผมลองทำตาม  https://www.facebook.com/DelsnetDelphi/videos/772232732987525/  แล้วไม่ได้ครับ