function Vergleiche_Datei(Datei1, Datei2: string): boolean; 
var 
  m1, m2: TMemorystream; 
begin 
  result := false; 
  m1 := TMemorystream.create; 
  m2 := TMemorystream.create; 
  try 
    m1.loadfromfile(Datei1); 
    m2.loadfromfile(Datei2); 
    if m1.size = m2.size then 
      result := CompareMem(m1.memory, m2.memory, m1.size); 
  finally 
    m2.free; 
    m1.free; 
  end; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button4Click(Sender: TObject); 
var s: string; 
begin 
  if vergleiche_datei('c:\test.bmp', 'Kopie von test.bmp') 
    then s := 'gleich' else s := 'ungleich'; 
  showmessage(s); 
end;