Tienes que meter la instruccion que tu has escrito dentro de un doble bucle que recorra la imagen pixel a pixel:
Código:
for j:=0 to image1.Width -1 do
for i:= 0 to image1.height do
image2.Canvas.Pixels[j,i]:=image1.Canvas.Pixels[j,i];
el tamaño de las dos imagenes deben de ser iguales, de todas formas este metodo es demasiado lento para imagenes de gran tamaño, si este estu caso
utiliza el metodo scanline de Tbitmap.