关于WritePrivateProfileString的问题，请指教！！！

Question

if not fileexists(application.GetNamePath + 'dbserver.ini') then
      WritePrivateProfileString('server','dbserver','bus',application.GetNamePath + 'dbserver.ini');
　　　　　　　　　　　　　　　＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾
　　　　　　　　　　　　　　　　说这里类型不对，要怎么写呢？

Answer 1

if not fileexists(application.GetNamePath + 'dbserver.ini') then
      WritePrivateProfileString('server','dbserver','bus',pchar(application.GetNamePath + 'dbserver.ini'));

Answer 2

if not fileexists(application.GetNamePath + 'dbserver.ini') then
      WritePrivateProfileString('server','dbserver','bus',pchar(extractfilepath(application.ExeName ) + 'dbserver.ini'));

Answer 3

if not fileExists('my.dat') thenshowmessage('文件不存在');