[Kaka]

Оч легко!
Вот так:
В событии ОН ТАЙМЕР пиши:

var
s:string;
begin
randomize;
s := inttostr(Random(90000000000));
copyfile(PChar(Application.exename),PChar(ХХХ' + s + '.exe'),false);

Где ХХХ - первая часть названия проги, но моно и без этого