--- oup/rewrite/Global/OniImgClass.pas	2007/01/22 23:05:45	97
+++ oup/rewrite/Global/OniImgClass.pas	2007/02/20 20:43:29	101
@@ -699,9 +699,12 @@ end;
 procedure TOniImage.GetAsBMP(var Target: TStream);
 var
   data: TByteData;
+  streampos: Integer;
 begin
   GetAsBMP(data);
+  streampos := Target.Position;
   Target.Write(data[0], Length(data));
+  Target.Seek(streampos, soFromBeginning);
 end;