Screen rozwiniętego StringGrid'a

Witam, jak zrobić zrzut rozwiniętego StringGrid'a?
Ten kod :

var
 BM :TBitmap;
begin
 BM := TBitmap.Create();
 BM.Width := StringGrid1.Width;
 BM.Height := StringGrid1.Height;
 with StringGrid1 do
   BM.Canvas.CopyRect(Rect(0,0, Width, Height),
                      Canvas,
                      Rect(0,0, Width, Height));
 BM.SaveToFile('D:\PLIK.BMP');
 BM.Free();
end;

zapisuje jedynie to co widać na formie.
Przykład : http://img196.imageshack.us/img196/1654/plik.png
Jak zrobić zrzut obejmujący cały StringGrid?

moze zrob zeby przesowalo sowak i jak przesonieto znow rob scrrena i dodawaj do tego BM...
albo sam rysuj tabele... pobierajac dane z stringgrida...

ktossss napisał(a)

moze zrob zeby przesowalo sowak i jak przesonieto znow rob scrrena i dodawaj do tego BM...

Coś jak Panorama Maker w aparacie fotograficznym. :-D