MinimizeName für TForm.Caption

[Insider2004]

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