--- oup/rewrite/Tools/Preview.pas	2007/01/22 23:05:45	97
+++ oup/current/Tools/Preview.pas	2007/02/21 03:28:48	111
@@ -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;
@@ -142,8 +137,8 @@ end;
 procedure TForm_Preview.PreviewTXAN;
 var
   loop_speed: Word;
-  linkcount: LongWord;
-  link: LongWord;
+  linkcount: Integer;
+  link: Integer;
   i:    Byte;
 begin
   ConManager.Connection[ConnectionID].LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);