delphi - DelphiのSMSゲートウェイ経由でSMSを送信する

Question

ゲートウェイ Web サイトによって「提供された」コードは、http://www.freesmsgateway.com/apiで入手できます 。これを実装するために最善を尽くしましたが、わかりません。無駄に広範囲にグーグルで検索しました。これはプログラムに実装するのに非常にクールなものなので、詳細な回答が多くの人々を助けることができることを願っています. 投稿しているように見えるので、パラメータを間違って解釈したのでしょうか? どんな助けや意見も大切です。書式設定の誤りをお許しください。サイトへの初めてのポスター。ところで、デルファイXE4を使用しています。メッセージ出力は、showmessage によって返されたテキストの下のリンクにあります。

デルファイ コードは次のとおりです。

function tform1.PostExample: string;
     var    param:TStringList;
            valid:boolean;
            url,text:string;
            http:TIDHttp;
      begin
         http := TIDHttp.Create(nil);
         http.HandleRedirects := true;
         http.ReadTimeout := 5000;
         param:=TStringList.create;
         param.Clear;
         param.Add('access_token=994ad8885430************91b6eb8f');
         param.Add('message=Test');
         param.Add('send_to=0729122723');
         valid:=true;
         url:='http://www.FreeSMSGateway.com/api_send';
          try
            text:=http.Post(url,param);
          except
           on E:Exception do
            begin
             valid:=false;
            end;
          end;
         if valid then
          showmessage( text )
          else
          showmessage( '' );
         end;
         end.