Exception bei FMX IntputBox

[jeng37]

Hallo,

Ich habe folgendes problem mit einer InputBox,
ich bekomme diese fehler meldung:

[DCC Fehler] MiniDOMain.pas(528): E2555 Symbol 'Result' kann nicht erfasst werden
[DCC Fehler] MiniDOMain.pas(1594): E2250 Es gibt keine überladene Version von 'InputBox', die man mit diesen Argumenten aufrufen kann.

Wie kann ich das beheben?

Delphi-Quellcode:

   InputBox('Machine ID: '+ MachineID, 'Release Code',CodeStr,
       procedure(const AResult: TModalResult; const AValue: string)
        begin
            case AResult of
            mrOk:
                begin
                  // AValue is the result of the inputbox dialog
                  HexToBuffer(AValue, SpecialCode, SizeOf(SpecialCode));
                   if IsSpecialCodeValid(ModKey, SpecialCode) then
                      Result := GetSpecialCodeValue(ModKey,  SpecialCode);
                end;
              mrCancel:
                begin
                end;
           end;
    end
      );

Kann mir da jemand weiter helfen?