[Electronic_Arts]

Попробывал сделать так но никаких ощибок не выдает но и ярлыков тож не создает
CreateLink(Edit1.text,ExtractFilePath(edit1.text) + '1.lnk','Description');