Problema con EAccessViolation en Disco Duro

[salvica]

Me he creado esta función

Código Delphi [-]
   function  pathDelSistema( Cadena:string ):string;
   begin
   {$IfDef LINUX}
     Result := DosPathToUnixPath( Cadena );
   {$Else}
     Result := UnixPathToDosPath( Cadena );
   {$EndIf}
   end;

y me sigue dando el mensaje de error

De todas formas, lo que me extraña es que solo me lo dá bajo el IDE