with Parameters.AddParameter do
     begin
       Name := '@Items';
       DataType := ftBlob;
       Value := Null;
       if (AUrlSet.Items <> nil) and (AUrlSet.Items.Count > 0) then
       begin
         AUrlSet.Items.SaveToStream(BufStream);
         BufStream.Position := 0;
         LoadFromStream(BufStream, ftBlob);
       end;
     end;

Stream write error.

Stream.WriteComponent(AAdoStoredProc);