MinimizeName 関数を使用します。
インストール画面などでよく見かける、ファイル名の途中を...で省略した文字列を作成するために、DelphiではMinimizeName関数が用意されています。

注意 この関数を使用するためには、usesにFilectrlユニットを追加する必要があります。

例としてエディットボックスにアプリケーションのEXE名を表示します。

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
  { Private 宣言 }
  public
  { Public 宣言 }
  end;

var
 Form1: TForm1;

implementation

uses
 Filectrl;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := MinimizeName(Application.ExeName, Canvas, Edit1.Width);
end;