Más o menos es algo
así:
Código:
procedure TForm1.Button4Click(Sender: TObject);
var
st:Tstream;
begin
st := TMemoryStream.Create;
clNotas.SaveToStream(st);
with saa do
begin
Params[0].Value := clID_AFILIADO.Value;
Params[1].Value := clDOCUMENTO.Value;
Params[2].Value := clNOMBRE.Value;
Params[3].Value := clAPELLIDOS.Value;
Params[4].Value := clTELEFONOS.Value;
Params[5].LoadFromStream(st,ftBlob);
ExecuteMethod
end;
st.free
end;