Variant Problem...

[faux]

Hallo!

Ich hab folgende Prozedur:

Delphi-Quellcode:

function StrToKey(var AString: Variant): boolean;
begin
  result := false;
  if AString = 'HKCU' then
  begin
    AString := HKEY_CURRENT_USER;
    result := true;
  end;
  if AString = 'HKLM' then
  begin
    AString := HKEY_LOCAL_MACHINE;
    result := true;
  end;
  if AString = 'HKU' then
  begin
    AString := HKEY_USERS;
    result := true;
  end;
  if AString = 'HKCC' then
  begin
    AString := HKEY_CURRENT_CONFIG;
    result := true;
  end;
  if AString = 'HKCR' then
  begin
    AString := HKEY_CLASSES_ROOT;
    result := true;
  end;
end;

Es wird ein String übergeben und sollte ein Double zurück kommen.
Nur kommt immer eine Fehlermeldung, dass ein Fehler beim konvertieren auftrat...