var
l:TmemoryStream;
s: TfileStream;文件
bitmap:tbitmap;
bitmap:=tbitmap.Create ;
l:= TmemoryStream.create;
s:= TfileStream.Create();
bitmap.PixelFormat :=pf8bit;
bitmap.Width :=长1728 ;
bitmap.Height :=宽2400
bitmap.savetostream(l);
bitmap.free;
写入自己定义的调色板
for i:=(宽-1) downto 0 do // 读取字节
begin
l.Seek(1078+长*i, soFromBeginning); //定位
l.CopyFrom (s,长);
end;
l.Seek(0, soFromBeginning); //定位
image1.Picture.Bitmap.LoadFromStream(l);
l.free;