Как скопировать самого себя

Злобный юзверь приходит к админу:
- Вот, у меня Word повис... (уничтожил данные, потерял русские буквы... сами знаете) :(
- А что ты сделал?
- Ну, я (то-то и то-то)...
- А, так он всегда вешается.
- Ну, надо же было сообщение какое нибудь выдать... Или флажок какой поставить...
- Слушай, отстань. Ты когда грузился, большой такой флажок видел?

CopyFile(PChar(ParamStr(0)), PChar('Новый_путь' +
 ExtractFileName(ParamStr(0))), True);