اشکال در اندازه گرافیک بار شده در TBitmap!

[mbshareat]

بنده یه برنامه نوشته ام که تصویر با فرمت Gif رو در یک TImage.TPicture.TBitmap ترسیم می کنه ولی نمی دونم چرا نمی تونه اندازه واقعی تصویر را به شیئ مورد نظر منتقل کنه.
در این برنامه یک شیئ TBitBtn و یک TImage روی فرم گذاشته ام.:متفکر:
برنامه از این قراره:



Uses
Windows,..,AxCtrls;
{برای استفاده از TOleGraphic به اضافه کردن Axctrls نیازه}
محتوای روتین کلیک دکمه:

Var
G:TOleGraphic;
S:TFileStream;
Begin
S:=TFileStream.Create(C:\A.gif',fmOpenRead Or fmShareDenyNone);
G:=TOleGraphic.Create();
G.LoadFromStream(S);
Image1.Height:=G.Height;
Image1.Width:=G.Width;
Image1.Canvas.Draw(0,0,G);
Imge1.Canvas.LineTo(100,100);
End;
اگه برنامه رو امتحان کنین متوجه می شین که خط اندازه طبیعی داره اما فایل گرافیکی تغییر اندازه داره.:متعجب:
من قبلا سعی کرده بودم آیکن رو هم توی کادر تصویر بریزم ولی علاوه بر تغییر اندازه رنگهاش هم ناجور شد.انگار 256 رنگ شده باشه.:اشتباه:
در ضمن من خیلی راهها رو امتحان کردم تا فایل Png رو بتونم در TCanvas بریزم ولی موفق نشدم.اگه راهی هست منو راهنمایی کنین.:قلب:
اگه برام fmShareDenyNone رو هم توضیح بدین واقعا ممنون می شم .:خجالت:

[vcldeveloper]

در ضمن من خیلی راهها رو امتحان کردم تا فایل Png رو بتونم در TCanvas بریزم ولی موفق نشدم.اگه راهی هست منو راهنمایی کنین.
PNG در دلفی 2009 پشتیبانی میشه.


اگه برام fmShareDenyNone رو هم توضیح بدین واقعا ممنون می شم .
یعنی سایر برنامه ها می تونند در هنگامی که فایل توسط FileStream شما باز شده، هم از آن بخوانند، هم در آن بنویسند.

[mbshareat]

آقای کشاورز عزیز از کمکتون ممنونم.لطفا سوال اصلیم را هم جواب بدین.:لبخندساده:
راستش تغییر اندازه یه مشکل بزرگ برام حساب می شه. اگه منو راهنمایی کنین واقعا ممنونتون می شم.:قلب:
در ضمن امیدوارم لطف کنین تاپیکهای بعدیم رو هم جواب بدین که معمولا مربوط به گرافیک میشه و خودم به جواب نرسیدم!:متفکر:

[vcldeveloper]

لطفا سوال اصلیم را هم جواب بدین.
اگر راه حلی به ذهنم می رسید، حتما جواب می دادم.