var
Source:TStringList;
Resp:TMemoryStream;
Html:String;
begin
Resp:=TMemoryStream.Create;
Source:=TStringList.Create;
try
Source.Add('a1=123');
Source.Add(a2=456');
try
Html:=IDHTTP1.Post(URL,Source);
except
On e:Exception do
begin
Html:='1Error';
end;
end;
finally
Resp.Free;
Source.Free;
end;
end;