BLOB und IBObjects

[meggles]

Hello everybody,
ich will in einer DB Emails als BLOB speichern - genauer gesagt, die IndyMessage-Komponente.
Nun seht Euch das mal an:

Code:

    vStream := TMemoryStream.Create;
    imessage.SaveToStream(vStream,false);
    vStream.Position := 0;
    with DSQL_Email do
    begin
        SQL.Text := 'execute procedure TAB_EMAIL_I ?MESSAGE, ?VON, ?AN, ?TEXT, ?BETREFF, ?DATUM, ?ORDNER_ID, ?ANHANG';
        ParamByName('MESSAGE')
        ParamByName('VON').AsString := iMessage.From.Text;
        ParamByName('AN').AsString := iMessage.Recipients.EMailAddresses;
        ParamByName('TEXT').AsString := iMessage.Body.Text;
        ParamByName('BETREFF').AsString := iMessage.Subject;
        ParamByName('DATUM').AsDateTime := iMessage.date;
        ParamByName('TEXT').AsString := iMessage.Body.Text;
        Prepare;
      end;

Die IBX hatten LoadFromStream, das war supereinfach. Wie mach ich das mit den IBObjects? Ich verwende die IB-DSQL-Komponente.
Vielen Dank!
Simon