procedure TForm1.Button2Click(Sender: TObject);
var
  TempStream: TMemoryStream;
begin
  TempStream := TMemoryStream.Create;
  try
    Image1.Picture.Graphic.SaveToStream(TempStream);
    EDBQuery1.SQL.Clear;
    EDBQuery1.SQL.Add('INSERT INTO images (image) VALUES (:image)');
    EDBQuery1.Prepare;
    EDBQuery1.ParamByName('image').LoadFromStream(TempStream, ftBlob);
    EDBQuery1.ExecSQL;

    ShowMessage(Format('Saved image with %d bytes', [TempStream.Size]));

    EDBTable1.Refresh;

  finally
    FreeAndNil(TempStream);
  end;

end;