Рисунок за границей канвы

[Сергей089]

Всем доброго времени суток. У меня такой вопрос:
Если при рисовании на канве линия ушла за границу, можно ли переместить весь рисунок, например, к центру или уменьшить его размер?
Я попробовал сделать, но что-то не получилось.

procedure TForm1.FormCreate(Sender: TObject);
var bmp:TBitmap;
    p:array [1..3] of TPoint;
begin
image1.Height:=600;
image1.Width:=600;
image1.Canvas.FillRect(image1.Canvas.ClipRect);
bmp:=TBitmap.Create;
bmp.Width:=2480;
bmp.Height:=2480;
p[1].X:=100;
p[1].Y:=-300;
p[2].X:=400;
p[2].Y:=-50;
p[3].X:=200;
p[3].Y:=100;
bmp.Canvas.Polygon(p);
image1.Canvas.CopyRect(rect(0,0,image1.Width,image1.Height),bmp.Canvas,rect(0,-400,600,200));
bmp.Free;
end;

[Сергей089]

А может то, что попало за пределы, скопировать нельзя?