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