[Alegun]

Путь до файла проверьте, напр.

Код:

ShowMessage(extractFileDir(ParamSTR(0))+'\proga.exe')

или тогда код показывайте, что гадать-то

З.Ы. попробуйте PChar(extractFileDir(ParamSTR(0))+'\proga.exe')