type
     TMD5Thread = class(TThread)
                  public
                  constructor Create(ThreadPriority : TThreadPriority);
                  function GetMD5OfFile(PathToFile : widestring): TMD5Digest;
                  function GetMD5DigestToStr(MD5summ : TMD5Digest): string;
                  end; // TMD5Thread

function TMD5Thread.GetMD5OfFile(PathToFile : widestring): TMD5Digest;
begin
     result := MD5File(PathToFile);
end;

function TMD5Thread.GetMD5DigestToStr(MD5Summ : TMD5Digest): string;
begin
      result := MD5DigestToStr(MD5Summ);
end;

constructor TMD5Thread.Create(ThreadPriority : TThreadPriority);
begin
  inherited Create(false);
  Priority := ThreadPriority;
end;