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;
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;