عکس گرفتن از کامپوننت ScrollBox برنامه Lazarus

[Majid_Ebru]

سلام
می خوام یه برنامه بنویسم توی این برنامه از کامپوننت ScrollBox استفاده کردم.
الان می خوام از کل محتویات اون یه عکس یا preview ازش نشون بدم مثل برنامه فتوشاپ که از کل عکس یه preview نشون می ده.
توی اینترنت گشتم و چند تا کد پیدا کردم که از همه بهتر این بود :

کد:

procedure TForm1.Button2Click(Sender: TObject);
var
 B: TBitmap;
begin

    B := TBitmap.Create;
    B.Width := 600;
    B.Height := 600;
    B.Canvas.Lock;
    scrollbox1.PaintTo(B.Canvas.Handle,0,0);
    B.Canvas.Unlock;
    Image2.Picture.Assign(B);

end;

مشکلم اینجاست که از تمام محتویات Scrollbox عکس نمی گیره و فقط از اون قسمتی که الان داره نشون می ده عکس می گیره و ار تمامش عکس نمی گیره.
اگه امکان داره لطفن راهنمایی کنید
با تشکر فراوان