1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function CompareImages(Bitmap3, Bitmap2: TBitmap): LongWord;
var
  xy: integer;
  P1, P2: PInteger;
begin
  Result:=0;
  Bitmap3.PixelFormat:=pf32bit;
  Bitmap2.PixelFormat:=pf32bit;
  P1:=Bitmap3.ScanLine[Bitmap3.Height-1];
  P2:=Bitmap2.ScanLine[Bitmap2.Height-1];
  for xy:=1 to Bitmap3.Height*Bitmap3.Width do begin
    Inc(Result, Byte(P1^<>P2^));
    Inc(P1);
    Inc(P2);
  end;
end;                    

1:
2:
3:
4:

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(IntToStr(CompareImages(Image1.Picture.Bitmap,Image2.Picture.Bitmap)));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

EinBild.LoadFromFile('c:\meinBild.bmp');

for i := 1 to 50 do
begin
  NocheinBild.LoadFromFile('c:\NocheinBildNr' + IntTostr(i) + '.bmp'); 
  // Annahme: Bilder sind durchnumeriert
  Diff := CompareImages(EinBild, NocheinBild);
  ShowMessage(IntToStr(Diff)); 
  // oder halt sonst wie die Differenzen verwalten/speichern/...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button4Click(Sender: TObject);
var i, diff : integer;
    EinBild, NocheinBild : TBitmap;
begin
EinBild.LoadFromFile('D:\image.bmp');

for i := 1 to 2 do
begin
  NocheinBild.LoadFromFile('D:\image' + IntTostr(i) + '.bmp');
  // Annahme: Bilder sind durchnumeriert
  Diff := CompareImages(EinBild, NocheinBild);
  ShowMessage(IntToStr(Diff));
  // oder halt sonst wie die Differenzen verwalten/speichern/...
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Math, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function CompareStreams(Stream1, Stream2: TStream): Extended;
type
  TBuffer = array[0..8191] of Byte;
const
  BuffSize = SizeOf(TBuffer);
var
  Buffer1: TBuffer;
  Buffer2: TBuffer;
  BytesRead1: Integer;
  BytesRead2: Integer;
  DifferenceCount: Int64;
  Index: Integer;
  MaxCount: Integer;
begin
  Stream1.Position := 0;
  Stream2.Position := 0;
  DifferenceCount := 0;
  while True do
    begin
    BytesRead1 := Stream1.Read(Buffer1, BuffSize);
    BytesRead2 := Stream2.Read(Buffer2, BuffSize);
    MaxCount := Min(BytesRead1, BytesRead2);
    for Index := 0 to MaxCount -1 do
      if Buffer1[Index] <> Buffer2[Index] then

        Inc(DifferenceCount);
    if (BytesRead1 <> BytesRead2) or (BytesRead1 = 0) or (BytesRead2 = 0) then
      Break;
  end;
  Result := (DifferenceCount * 100) / Max(Stream1.Size, Stream2.Size);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream1: TFileStream;
  Stream2: TFileStream;
  Differences: Extended;
begin
  Differences := 0.0000;
    try
      Stream1 := TFileStream.Create('C:\temp\1.jpg', fmOpenRead);
      Stream2 := TFileStream.Create('C:\temp\1.1.jpg', fmOpenRead);
      Differences := CompareStreams(Stream1, Stream2);
    finally
      FreeAndNil(Stream1);
      FreeAndNil(Stream2);
    end;
  ShowMessageFmt('%.4f', [Differences]);
end;


end.                    

1:
2:
3:
4:
5:
6:
7:

EinBild := TBitmap.Create;
NochEinBild := TBitmap.Create;

// ...

EinBild.Free;
NochEinBild.Free;