function MinimizePathName(const Filename: String; const Font: TFont; MaxLen: Integer): String;
Возвращает сокращенное имя указанного файла Font в соответствии с указанным шрифтом Font и максимальным размером отображения MaxLen в пикселях. Отброшенная часть строки будет заменена знаком многоточия (...).
MyLabel.Caption := MinimizePathName(MyPathName, MyLabel.Font, MyLabel.Width);