[NumLock]

Код:

uses
  FileCtrl,

...

begin
  StatusBar1.Panels[0].Width:=200;
  StatusBar1.Panels[0].Text:=MinimizeName('c:\Program Files\Справочник школьника. Электронное приложение 1-4\AccessDB\SchoolTest.mdb', StatusBar1.Canvas, StatusBar1.Panels[0].Width);
end;

будет:
c:\...\AccessDB\SchoolTest.mdb