[AlexSku]

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.CopyRect(Rect(PaintBox1.Width, 0, 0, PaintBox1.Height),
    Image1.Picture.Bitmap.Canvas,
    Image1.ClientRect);
end;