--- oup/rewrite/Tools/Preview.pas	2007/01/22 23:05:45	97
+++ oup/rewrite/Tools/Preview.pas	2007/02/20 20:43:29	101
@@ -83,19 +83,14 @@ end;
 
 procedure TForm_Preview.LoadImage(fileid, index: Integer);
 var
-  Data:      TByteData;
   memstream: TMemoryStream;
   OniImage:  TOniImage;
-
 begin
   OniImage := TOniImage.Create;
   OniImage.Load(ConnectionID, fileid);
-  OniImage.GetAsBMP(Data);
-  OniImage.Free;
-
   memstream := TMemoryStream.Create;
-  memstream.Write(Data[0], Length(Data));
-  memstream.Seek(0, soFromBeginning);
+  OniImage.GetAsBMP(TStream(memstream));
+  OniImage.Free;
   bitmaps[index].LoadFromStream(memstream);
   memstream.Free;
 end;