Есть ли процедура сокращения пути?

[Amadeus]

Помню давно еще встречалась такая процедурка, которая может из пути вида "C:\DATA\Folder1\Folder2\Folder3\Folder4\Folder5\Folder6\Folder7\22APR05P.038"
если он больше n символов, сделать путь вида "C:\DATA\Folder1\..\Folder7\22APR05P.038"

Кто нибудь знает где такое можно найти? Не помню где встречал, сейчас понадобилась, а велосипед изобретать не хочется

[Romtek]

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Unit: FileCtrl (Delphi)

[Amadeus]

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Unit: FileCtrl (Delphi)

В Lazarus такой функции нет, но нашел ее код тут:

http://www.koders.com/delphi/fid96B9646DBA762623ECF5A61D73098E29E7DBECA4.aspx?s=MinimizeName

И все заработало Спасибо