[El Sanchez]

Я ишчю токой вариант, чтоби било имя папки\имя файла и не имеєт значения сколько папок и файлов єсть в нутри »

neorom, перепишите процедуру BetterInfo:

Код:

procedure BetterInfo();
var
    Buff: String;
begin
    Buff := ExpandConstant(CurrentFilename);
    fLabel.Caption := ExtractRelativePath(ExtractFileDir(Buff), Buff);
end;