ShellExecute klappt nicht

[Asfaloth]

klappt immernoch nicht -.-

ist im mom so:
shellexecute(Application.Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'updater.exe'), 'FTP PicUpper.exe', nil, SW_ShowNormal);