var Buffer : array [0..255] of char;begin GetShortPathName( 'C:\Program Files\Borland\Common Files\Bde\Bde32.hlp', @Buffer, sizeof(Buffer)); Memo1.Lines.Add(Buffer);end;