Dalczego nie działa Bitmap.LoadFromStream

Mam taki kod:

var
Str :TMemoryStream;

begin
Str := TMemoryStream.Create;

image1.Picture.Bitmap.SaveToStream(Str);
image2.Picture.Bitmap.LoadFromStream(Str);
image1.Refresh;
image2.Refresh;
end;

Dlaczego w rezultacie w Image2 nie mam żadnej bitmapy???

Tomek

Daj po:

  image1.Picture.Bitmap.SaveToStream(Str);

Str.Position := 0;