Function Tform1.AreFilesEqual( Const file1, file2: String ): Boolean;
Var
  m1, m2: TMemoryStream;
Begin
  Result := False;
  m1 := TMemoryStream.Create;
  try
    m1.LoadFromFile( file1 );
    m2:= TMemoryStream.Create;
    try
      m2.LoadFromFile( file2 );
      If m1.size = m2.size Then
        Result := CompareMem( m1.Memory, m2.memory, m1.size );
    finally
      m2.free;
    end;
  finally
    m1.free;
  end
End;