Сравнение файлов

[WPROF]

Здравствуйте всем. Подскажите, please, как быстро и изящно сравнить два одноименных файла.

[Volt]

var
s, f: TmemoryStream;
begin
s:=TmemoryStream.create;
f:=TmemoryStream.create;
s.LoadFromFile('файл1');
f.LoadFromFile(файл2);
if comparemem(s.memory, f.memory, s.size) then
showmessage('файлы одинаковы')
else
showmessage('файлы не одинаковы')
s.free;
f.free;
end;

[WPROF]

Здорово! Спасибо.
Только я имел в виду немного другое. На самом деле мне достаточно сравнить некие реквизиты файлов (дата-время создания, размер, что там еще). Сравнивать побитно - не тот случай.
Еще раз спасибо.