给我一个delphi提交http post的例子

这是一个 Delphi 代码示例，用于发送 HTTP POST 请求：

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  Params: TStringList;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
    IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
    Params := TStringList.Create;
    try
      Params.Add('param1=value1');
      Params.Add('param2=value2');
      IdHTTP.Post('http://www.example.com/post.php', Params);
    finally
      Params.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;

这段代码使用 TIdHTTP 组件来发送 HTTP POST 请求。在这个例子中，我们向 http://www.example.com/post.php 发送了两个参数 param1 和 param2。你可以在 TStringList 对象 Params 中添加更多的参数。然后，调用 TIdHTTP 的 Post 方法来发送 POST 请求。

注意，这个例子中使用了 TIdSSLIOHandlerSocketOpenSSL 组件来支持 HTTPS 连接。如果你要发送 HTTP 请求而不是 HTTPS 请求，可以省略这个组件。