[walito]

Te hago una ultima pregunta, ahi pude hacerlo andar con scanline pero solo me recorre hasta la mitad de la foto, de arriba para abajo bien , pero de izquierda a derecha se clava en menos de la mita.
Intente poner el ancho de la foto a mano y hace los mismo, es decir el for que recorre las X llega bien hasta el final, que puede ser?

te paso el ejemplo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  x,y : Integer;
  BitMap1, BitMap2 : TBitMap;
  A, B : PByteArray;
begin
  BitMap1 := TBitMap.create;
  BitMap2 := TBitMap.create;
  try
    BitMap1.LoadFromFile('000.bmp');
    BitMap2.LoadFromFile('111.bmp');

    for y := 0 to BitMap1.Height - 1 do
    begin
        A := BitMap1.ScanLine[y];
        B := BitMap2.ScanLine[y];

        for x := 0 to BitMap1.Width - 1 do
        begin
            if A[x] <> B[x] then
              B[x] := 0;
        end;
    end;

    Image3.Picture.Graphic := BitMap2;
  finally
    BitMap1.Free;
    BitMap2.Free;
  end;
end;

Gracias