const
  Siz = 255 ;
var
  PBuff : array [0..Siz] of char ;

    GetShortPathName( PChar( someFileName ), PBuff, Siz ) ;