[roamer]

Вот так тоже сработало :

Код:

function GetShortFileName(fnFull : string): string;
var
  aTmp: array[0..255] of Char;
begin
  Result:='';
  //if FileExists(fnFull) then begin
     if GetShortPathName(PChar(fnFull), aTmp, Sizeof(aTmp)) = 0 then begin
        Result:= fnFull;
     end
     else begin
        Result:= StrPas(aTmp);
     end;
  //end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetShortFileName('D:\Мои документы\Санитарные_правила_и_нормы\СанПиН-2_2_4_1294-03.2003-06-15\'));
end;

На выходе :
D:\МОИДОК~1\САНИТА~1\САНПИН~2.200\