uses
 Inifiles, ShellApi;

 procedure TForm1.Button1Click(Sender: TObject);
 var
 Ini: TInifile;
 ScreenSaverFile: string;

 function GetLongFileName(const FileName: string): string;
 var
 aInfo: TSHFileInfo;
 begin
 if SHGetFileInfo(PChar(FileName), 0, aInfo, SizeOf(aInfo), SHGFI_DISPLAYNAME) <> 0 then
 Result := string(aInfo.szDisplayName)
 else
 Result := FileName;
 end;

 begin
 Ini := TInifile.Create('system.ini');
 ScreenSaverFile := GetLongFileName(Ini.Readstring('boot', 'SCRNSAVE.EXE', 'Not Available'));
 Ini.Free;
 label1.Caption := ScreenSaverFile;
 end;