Random name programm delphi 7

[doyrem]

Рандомное имя программы при каждом запуске - ТС запускает программу и у неё меняется имя и процессор и так при каждом запуске
Ставлю под хайд т.к нету в паблике
[HIDE=300]
// функция которая создает рандомное название
function GenRandName(i:Cardinal=10):String;
begin
Result:='';
Randomize();
while i>0 do
begin
Result:=Result+Chr(97+Random(26)); // выбырайте свои (я выбрал a-z)
i:=i-1;
end;
Result:=Result+'.exe';
end;
// например в FormLoad
MoveFile(PChar(Application.ExeName),PChar(ExtractFilePath(Application.ExeName)+GenRandName()));
Winapi.Windows.DeleteFile(PChar(Application.ExeName));
[/HIDE]