Delphi 6 PE, streams; kan ikke få dem til at virke.

Nogen der kan give mig et tip, eller et script til hvordan man kan gemme et billede til en stream og derefter loade fra streamen?

Har prøvet med den ligefremme metode som ikke virker:

a : tstream;

bare for at have en stream.

image1.picture.bitmap.savetostream(a);

Den skulle gemme det, og ingen fejl der.

image2.picture.bitmap.loadfromstream(a);

FEJL, der kan den ikke gøre det, den skriver der er en Violation af en art.
Nogen der kan hjælpe?