function BlobStreamOku(Query: TADOQuery): TMemoryStream;
begin
result := TMemoryStream.Create;
// Önce AccessDB ye bağlan.
// Örnek: Query.Connection, TADOConection veya Query.ConnectString
// SQL komutu gönder
Query.Active := False;
Query.SQL.Clear;
// data : ilgili kayıt satırı and email : table adı
Query.SQL.Append('SELECT data FROM email WHERE id=1');
Query.Active := True;
Result.LoadFromStream(Query.CreateBlobStream(Query.FieldByName('Data'), bmRead));
end;