[dec]

Hola,

Me adelanté editando mi mensaje, pero, fíjate en el mismo cómo es posible añadir antes de los prototipos de las funciones aquellas unidades que se precisen. En tu caso por lo menos la unidad "Classes", en donde se encuentra "TStrings".

Es decir, por ejemplo:

Código Delphi [-]
unit XpTheme;

interface

uses
  Windows; // Añadimos las unidades que nos sean menester

  function IsThemeActive : BOOL; external 'uxtheme.dll' name 'IsThemeActive';

implementation

end.