指针与注册表

各位老大请帮忙小弟解决以下问题，谢谢！！！
我想用一个函数返回两个值，一个用函数返加，一个采用形参指针，函数如下：
问题：
Function ReadRegistry(Pcompany:^string):string;  //该函数使用Pcompany指针返回帐套名称
var
  RootKey,
  ConStr,
  Company:string;
  Reg:TRegistry;
begin
  result:='';
  RootKey:='\Software\StarfarmSoft\Amiting';
  try
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.KeyExists(RootKey) then
    begin
      Reg.OpenKey(RootKey,false);
      Company:=Reg.ReadString('Company');
      ConStr:=Reg.ReadString('ConStr');
      Pcompany:=@Company;
      result:=ConStr;
    end;
    
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;
在编译的时候出现
identifier expected but '^'found 
的错误，不知指针不能做形参还是？？？？？？？？？？
问题二：
我在工程文件的程序如下:
var
//----------------------------sheng20041216add
  RootKey: string;
  Reg: TRegistry;
begin
  RootKey:='\Software\StarfarmSoft\Amiting';
  Reg:=TRegistry.Create();
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  .......
  .......
end
出现了HKEY_LOCAL_MACHINE这个变量没定义的错误提示但在其它单元文件里也这样写但却没错误这是什么原因造成的？？？？？？？？？？？
请各位高手指点指点！！！！！！