Como actualizar este código para Delphi 8?

Como actualizar este código para Delphi 8?
-------------------------------------------------
Line48:Function RPLN: PChar; unsafe;
Line49:Begin
Line50: StrNome := RSNomeApp;
Line51: Result := PChar(StrNome);
Line52:End;
-------------------------------------------------------------
erro:
[Error] Funcoes.pas(51): Invalid typecast
==================================

E

-------------------------------------------------------------
Line77:Function iif(Param0, Param1, Param2: Variant): Variant;
Line78:Begin
Line79: If Param0 Then
Line80: Result := Param1
Line81: Else
Line82: Result := Param2;
Line83:End;
--------------------------------------------------------------
[Error] Funcoes.pas(77): Undeclared identifier: ´Variant´