res,errs : TMemoryStream; begin res := TMemoryStream.Create; try idhtp.Post(url, postdata, res); Result := res; except on e:Exception do begin errs := TMemoryStream.Create; StringToStream(e.Message , errs); Result := errs; raise Exception.Create(e.Message); end; end;