Embarcadero RAD Studio XE

procedure TForm2.Button1Click(Sender: TObject);
var
  url: String;
  HTTP: TIdHTTP;
  sl: TStringList;
  res: String;
begin

  HTTP := TIdHTTP.Create;
  sl := TStringList.Create;
  try
    sl.Add('Param1=Data1'); //第一組參考與資料,以下類推…
    sl.Add('Param2=Data1');
    sl.Add('Param3=Data2');
    sl.Add('Param4=Data3');
    res := HTTP.Post('http://127.0.0.1:8080', sl);
    Memo1.Lines.Add(res);
  finally

  end;
end;

執行結果: