[makar3000]

tests('09FCB98022E2181B9914B08A0E36F0');

Да правильно, вот заготовка, можете проверить в delphi 7 и 2010

Код:

program test12;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

procedure tests(types : PChar);
var
  I, J : Integer;
  qwResult : UInt64;
begin
  for I := 0 to 2 do
  begin
    qwResult := 0;
    for J := 0 to 4 do
    begin
      qwResult := qwResult shl 8;
      qwResult := qwResult or ord(types[I + 5 + J]);
    end;
    WriteLn(qwResult);
  end;
end;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  tests('09FCB98022E2181B9914B08A0E36F0');
  readln;
end.