var
ParamStr : TStrings;
TempHTML : String;
begin
ParamStr := TStringList.Create;
ParamStr.Clear;
ParamStr.add(#Input Parameters#);
...
...
try
TempHTML := IdHTTP.Post(#Url#,ParamStr);
except
MessageBox(Application.Handle,'Error #..#','MsgBox',mb_ok);
end;
....
....
end;