C++ a Delphi?

[[escafandra]]

La traducción que veo de FindPattern es esta:

Código Delphi [-]
function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal;
var
i : Cardinal;
begin
  for i := 0 to dwLen do
    if(Match(PBYTE(dwAddress + i), bMask, szMask)) then
    begin
      Result := Cardinal((dwAddress + i));
      exit;
    end;
  Result:= 0;

Saludos.