gravar imagem(Bmp, Jpg)

var
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  FStream.Position := 0;
  Image1.Picture.Graphic.SaveToStream(FStream);
  FStream.Position := 0;
  Query1.SQL.Clear;
  Query1.SQL.Add(´UPDATE Tabela SET tab_imagem = :tab_imagem´);
  Query1.SQL.Add(´Where tab_codigo = 1´);
  Query1.ParamByName(´tab_imagem´).LoadFromStream(FStream,ftBlob);
  Query1.ExecSQL;
  FStream.Free;
end;