Guarda Imagen en Campo Blob con Sql

[kpss8m]

Gracias por tu respuesta rastafarey, habia intentado hacer algo parecido pero no me funcionaba, mi problema es que estaba intentando utilizar un TStream en vez de un TMemoryStrean. Me Puse A buscar Hacerca de TMemoryStream y encontre estos enlaces interesantes, los dejo por si a alguien mas le sirven:

http://www.forumweb.com.br/forum/lofiversion/index.php/t1935.html
http://latiumsoftware.com/en/pascal/0011.php

A si Mismo modifique el codigo y quedo de la siguiente forma

Código Delphi [-]
  Procedure GuardaLogo;
  Var
    sSql : String;
    bs : TMemoryStream;
  Begin
    DM.ibqOp.Close;
    DM.ibqOp.SQL.Clear;
    DM.ibqOp.SQL.Add('INSERT INTO usuarios (id, logo) values (:id, :logo);');
    DM.ibqOp.ParamByName('id').AsInteger := 1;
  
    // Carga de una imagen en un campo BLOB y Guardarlo en un TImage
    // Referencia 
    //            http://www.forumweb.com.br/forum/lof...php/t1935.html
    //            http://latiumsoftware.com/en/pascal/0011.php
    bs := TMemoryStream.Create;
    if imgLogo.Picture <> nil Then
      if imgLogo.Picture.Graphic <> nil Then
      imgLogo.Picture.Graphic.SaveToStream(bs);
  
    DM.ibqOp.ParamByName('LOGO').LoadFromStream(bs, ftBlob);
  
    DM.ibqOp.ExecSQL;
  End;