function GetBlobStream(Query: TADOQuery): TMemoryStream;
begin
   result := TMemoryStream.Create;

   // Сначала надо подключиться к БД Access.
   // Смотрите: Query.Connection, TADOConection и Query.ConnectString

   // Отправляем SQL запрос
   Query.Active := False;
   Query.SQL.Clear;
   // data это столбец нужных данных, а email - таблица
   Query.SQL.Append('SELECT data FROM email WHERE id=1');
   Query.Active := True;

   Result.LoadFromStream(Query.CreateBlobStream(Query.FieldByName('Data'), bmRead));
end;