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;
function IsThemeActive : BOOL; external 'uxtheme.dll' name 'IsThemeActive';
implementation
end.