юникод в XE

[kAAre]

function GetFileList(const Path: String): string;
var a: Cardinal;
fa: _WIN32_FIND_DATAA;
begin
result:='';
TRY
a:=FindFirstFile(pwchar(path+PChar('\*.*')),fa);
while FindNextFile(a,fa) do
result:=result+fa.cFileName+#13#10;
EXCEPT
END;
end;

голову сломал, помогите люди добрые

Incompatible types: 'PWideChar' and 'PAnsiChar'

[Streletz]

Иногда помогает такой приём: совместное использование PWideChar и WideString.

result:=result+PWideChar(WideString(fa.cFileName))+#13#10;

[Stilet]

pwchar замени на pchar. ПУсть Делфи сама определяет как преобразовывать.
Или же тогда пиши FindFirstFileW(... чтоб вызывалась юникодная функция.

[FaTaL]

И вообще в ХЕ лучше использовать TDirectory.GetFiles()