RCx-Verschlüsselung

[Shark99]

Bei mir kompiliert der Code unter Delphi 5 nicht.

Bekomme diese Fehlermeldung:

[Error] rcx.pas(190): Ambiguous overloaded call to 'RCxInit'

Delphi-Quellcode:

function RCxEncode(const Value, Password: AnsiString): AnsiString; 
var
  RCx: TRCxContext;
begin
  RCxInit(RCx, Password); // das ist die Fehlerzeile
  try
    Result := RCxEncode(RCx, Value);
  finally
    RCxDone(RCx);
  end;
end;

Ich verstehe es nicht ganz, weil Password hier Ansistring ist und RCxInit so definiert ist:

Delphi-Quellcode:

procedure RCxInit(var RCx: TRCxContext; const Key; KeySize: Integer); overload;
procedure RCxInit(var RCx: TRCxContext; const Key: AnsiString); overload;
procedure RCxInit(var RCx: TRCxContext; const Key: WideString); overload;

Also ist der zweite Parameter eindeutig unterscheidbar und die RCxInit(var RCx: TRCxContext; const Key: AnsiString); version aufgerufen werden sollte. Delphi meckert dennoch.