라자루스에서 Pixels[] 메써드 안먹나요?

다음 코드가 반응이 없네요 ... 원래 이미지1에서 이미지2로
그림이 복사되어야 하거든요 ... 그런데 그림이 안변해요 ..
왜 이런건가효 ??
-------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin

  for i:=1 to image1.Width-1 do begin
    for j:=1 to image1.Height-1 do begin
      image2.Canvas.Pixels[i, j]:=  image1.Canvas.Pixels[i, j];
    end;
  end;

  showMessage('Good~ !');

  image2.Refresh;

end; 

-----------------------------------

MacOSX 10.7.4 입니다.
Lazarus 1.0
FPC 2.6.0 입니다.