关于delphi中idhttp网页提交的方法？

function GetString(tStr,sStr,eStr :string):string; var sPos,ePos :integer; begin Result := ''; sPos := Pos(sStr,tStr); if sPos > 0 then begin tStr := Copy(tStr,sPos+Length(sStr),Length(tStr)-sPos-Length(sStr)+1); ePos