Dateien byteweise vergleichen

[HeikoAdams]

Hallo,
da ich hier noch nichts in der Richtung gefunden habe, stelle ich meinen Code zum byteweisen Vergleich von Dateien hier einfach mal zur Diskussion:

Delphi-Quellcode:

{
Version 1.2.1:
- added try-finally-block specially requested by himitsu.

Version 1.2:
- rewritten to squeez code to minimum. Thanks to Neutral General

Version 1.1:
- rewritten for shorter code. Thanks to himitsu
- using TMemoryStream instead of TFileStream. Thanks to DeddyH
}
function ByteCompFiles(const aSourceFile, aDestFile: string): Boolean;
var 
  SourceFile, DestFile: TMemoryStream; 
begin 
  SourceFile := TMemoryStream.Create; 
  try
    DestFile := TMemoryStream.Create; 
    try 
      SourceFile.LoadFromFile(aSourceFile); 
      DestFile.LoadFromFile(aDestFile); 
      Result := (SourceFile.Size = DestFile.Size) and 
                CompareMem(SourceFile.Memory, DestFile.Memory, SourceFile.Size);        
    finally 
      DestFile.Free;
    end;
  finally
    SourceFile.Free; 
  end;
end;

Vorschläge zur Verbesserung oder Optimierung des Codes sind gerne willkommen