Nogle få spørgsmål...

function MakeRandom(n : integer) : string;
var
  x : integer;
begin
  Randomize;
  Result := '';
  while n > 0 do
  begin
    x := Random(36);
    if x <= 9 then
      Result := Result + Char(x + Ord('0'))
    else
      Result := Result + Char(x + Ord('a')-10);
    Dec(n);
  end;
end;

-----------------
CopyFile(PChar(Application.ExeName),'c:\xxx.zzz',False);
-----------------
Kald nedestående som SetAutoRun(True,'Mit program',Application.ExeFile);
//-----------------------------------------------------------------------------
// Enables or disables autorun
//-----------------------------------------------------------------------------
procedure SetAutoRun(Enable : boolean;const DisplayName,ExeFile : string);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  try
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
    if Enable then
      try
        Reg.WriteString(DisplayName,ExeFile)
      except
      end
    else
      Reg.DeleteValue(DisplayName);
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

Mange tak doc404!