ok I found why... i used strpcopy function which result as pchar

[pascal] TFileIndex = record
FileName: array[0..119] of char;
FilePos: integer;
FileLength: integer;
end;

//and later i use :


strpcopy(Dir.FileName, ExtractFileName(files.Strings[i]));


[/pascal]