Alguemja esta utilizando o instalador do fernando

function TFormPrincipal.Registrou: boolean;
begin
  //Verificar se a chave de instalação informada é válida
  Result := ((FormRegistro.Edit1.Text = ´01234´) and
             (FormRegistro.Edit2.Text = ´56789´) and
             (FormRegistro.Edit3.Text = ´01234´));
end;

function TFormPrincipal.Instalar: boolean;
var
  i: integer;
  Fres: TResourceStream;
  fFile: TFileStream;
  ResPath1, ResPath2, Progr: string;
begin
  if VerificaDir then
  begin
    //Setar Path e nome dos arquivos de destino
    SetPathFiles;
    //Trocar cursor
    Screen.Cursor := crHourGlass;
    //Habilitar label de progressão da instalação
    FormInstal.Label2.Visible := True;
    //Configurar ProgressBar
    FormInstal.ProgressBar1.Position := 0;
    FormInstal.ProgressBar1.Step := 1;
    try
      //Setar o tamanho máximo da ProgressBar
      FormInstal.ProgressBar1.Max := Files.Count;
      //Varrer todos arquivos copiando-os para o local indicado
      for i := 0 to Files.Count - 1 do
      begin
        //Extrair arquivo do Resource
        Fres := TResourceStream.Create(0, ´RECURSO´ + IntToStr(i + 1), RT_RCDATA);
        fFile := TFileStream.Create(Paths[i] + Files[i], fmCreate);
        try
          //Atualizar label de progressão da instalação
          FormInstal.Label2.Caption := ´Extraindo:   ´ + Files[i] + ´...´;
          Application.ProcessMessages;
          //Copiar arquivo para o local indicado
          Ffile.CopyFrom(Fres, Fres.Size);
          //Estou pausando o sistema por 1 segundo para visualizar melhor a progressão
          //da instalação. Caso deseje que o processo seja mais rápido, retirar a linha
          //abaixo.
          Sleep(1000);
          //Atualizar ProgressBar
          FormInstal.ProgressBar1.StepIt;
          Application.ProcessMessages;
        finally
          //Destruir objetos
          Fres.Free;
          Ffile.Free;
        end;
      end;
    finally
      //Ocultar label de progressão de instalação
      FormInstal.Label2.Visible := False;
      //Setar a posição da ProgressBar para o início
      FormInstal.ProgressBar1.Position := 0;
      //Voltar cursor default
      Screen.Cursor := crDefault;
    end;
    //Criação de atalhos
    Progr :=  Paths[0] + Files[0];
    if FormInstal.CheckBox1.Checked then
    begin
      //Criar atalho para o sistema no Desktop
      resPath1 := CreateShortcut(PROGR, _DESKTOP, ´´,´´,´´,´Sistema´, ´Sistema´);
    end;
    if FormInstal.CheckBox2.Checked then
    begin
      //Verificar e caso necessário criar diretório
      if not(DirectoryExists(GetProgramDir + ´\Nome da empresa´)) then
        ForceDirectories(GetProgramDir + ´\Nome da empresa´);
      //Criar atalho para o sistema no menu Iniciar
      resPath2 := CreateShortcut(PROGR, _OTHERFOLDER, GetProgramDir + ´\Nome da Empresa´,´´,´´,´Sistema´, ´Sistema´);
    end;
    Result := True;

  end
  else
    Result := False;
end;