Arquivos - reduzindo e abreviando nome do arquivo para caber numa label

// reduzindo nome do arquivo com ...

// tipow:

C:\Arquivos de programas\Borland\ASPack.exe

// troca por

C:\..\ASPack.exe

  Label1.Caption := MinimizeName(Edit1.Text, Label1.Canvas, Label1.Width);