خطا در ذخيره كردن يك تصوير در يك Stream

با سلام خدمت همه دوستان

در هنگام ذخيره كردن يك تصوير (كه به صورت Runtime درست شده است) و اندازه آن در يك Stream خطايي با پيغام
TStream.Seek not implemented
روبرو مي شود به نظر شما خطا در كجاست؟

کد:

---

var
  fs: TFileStream;
  PicStream: TStream;
  PicSize: Int64;
  Pic: TBitmap;
begin
  fs:=TFileStream.Create(FileName, fmCreate);
  PicStream:=TStream.Create;
  Pic:=TBitmap.Create;
  .
  .
  .
  Pic.SaveToStream(PicStream);
  PicSize:=PicStream.Size;
  fs.Write(PicSize, SizeOf(PicSize));
  fs.Write(PicStream, PicSize);
end;

---

همه كدت رو نذاشتی و ننوشتی كه خطا در كجا بوجود مياد،
ولی كلاس TStream يك كلاس Abstract هست، كلاس Abstract رو نميتونی به صورت مستقيم ازش استفاده كنی و بايد يك كلاس از روی اون بسازی(ارث بری كنی) و بعد ازش استفاده كنی، البته به اندازه كافی كلاس مشتق شده از كلاس TStream وجود داره كه بشه ازشون استفاده كرد. كلاس های ساخته شده از كلاس TStream شامل كلاس‌های TFileStream TStringStream, TMemoryStream, TBlobStream, TWinSocketStream, TOleStream است كه از اين كلاسها ميتونی مستقيماً استفاده كنی.

با سلام و تشكر از آقاي خورسند

حرف شما صحيح بود و كلاس TStream يك كلاس انتزاعي بوده و مستقيما قابل استفاده نمي باشد و در كد بالا هم خطا در خواندن اندازه PicStream يعني PicSize:=PicStream.Size رخ داد كه علت آن هم همانطور كه شما فرموديد انتزاعي بودن كلاس تعريف شده از آن مي باشد.

با تغيير نوع PicStream از TStream به TMemoryStream خطا برطرف شد.

(بقيه كد برنامه هم زياد و هم بي ارتباط با موضوع بحث بود)