Модуль: SysUtils

Описание
Функция выполняет бинарное сравнение двух участков памяти размером Length байт. Функция возвращает True, если область памяти, на которую указывает P1, идентична области P2, иначе возвращается False.

Пример
var
   mas1, mas2: array[0..99] of Integer;
   P1,P2: Pointer;
   Len: Integer;
begin
   P1:=Addr(mas1);
   P2:=Addr(mas2);
   Len:= SizeOf(mas1);
   If CompareMem(P1,P2,Len) then

       MessageDlg ('Значения элементов 1-го массива идентичны значениям 2-го массива', mtInformation, [mbOk], 0)
   else
       MessageDlg ('Значения элементов 1-го массива не идентичны значениям элементов 2-го массива', mtInformation, [mbOk], 0);
end;