Показ части изображения

[Alex Cones]

На схеме показано, чего я хочу добиться, но попытаюсь пояснить: на форме расположен Image с именем PicBuf и свойством Visible = Flase. Размер 4096 х 3072. (т.е. 1024*4 и 768*4). И также на форме находится Image с именем Pic и свойствами Visible = True и 1024*768. В процессе создания формы (OnCreate) В PicBuf загружается изображение 4096*3072. По действию таймера на Pic должна нарисоваться часть картинки PicBuf размером 1024*768 (выбор координаты - рандом). Думал рисовать при помощи Pic.Canvas.CopyRect(Rect(0,0,1024,7 68),PicBuf.Canvas,rect(0,0,1024,768 )), но при изменении любого значения он начинает сжимать или растягивать рисунок. Чем можно реализовать данную вещь?

[Levsha100]

Pic.Canvas.CopyRect(Rect(0,0,1024,7 68),PicBuf.Canvas,rect(0+dx,0+dy,1024+dx,768+dy))

Где dx и dy это смещение.

[DeKot]

Наверное чуть иначе :
Pic.Canvas.CopyRect(Rect(0,0,1024,7 68),PicBuf.Canvas,rect(dx,dy,1024,768))
1024,768- это размер области, а не вторые координаты. А dx и dy выбираем рандомно - dx := random(4095); dy := random(3071);

[Levsha100]

Нет, ТС просил

часть картинки PicBuf размером 1024*768 (выбор координаты - рандом)

,
те правильно так

dx:=Random(4095-1024);
dy:=Random(3071-768);
Pic.Canvas.CopyRect(Rect(0,0,1024,768),PicBuf.Canvas,rect(0+dx,0+dy,1024+dx,768+dy))