function GetLongPathName(lpszShortName: LPCTSTR; lpszLongName: LPTSTR;
   cchBuffer: DWORD): DWORD; stdcall; external kernel32 name 'GetLongPathNameA';

procedure TForm1.FormCreate(Sender: TObject);
var
 str1, str2: string;
 Len : Integer;
begin
//  str1 := 'C:\Users\v.srednikh\Application Data\test\FprnM1C.dll'; // Файл реально существует
 str1 := 'C:\Users\V8F7D~1.SRE\APPLIC~1\test\FprnM1C.dll';
 // Use GetLongPathName where available (Win98 and later) to avoid
 // Win98 SE problems accessing UNC paths on NT/2K/XP based systems
   SetLength(str2, MAX_PATH + 1);
   len := GetLongPathName(PChar(str1), @str2[1], MAX_PATH);
   if Len = 0 then
     ShowMessage(SysErrorMessage(GetLastError));
   SetLength(str2, len);
   Caption := str2;
end;