Adicionar unit ao projeto em Run Time

//Procedure para carregar modulos em runtime
procedure TFormPrincipal.CarregaFormDe(const NomeDaDLL: String);
type
  TMetodoDeNotificacao = procedure of object;
  TFuncaoDeForm = function(Owner: TComponent; MetodoDeNotificacao: TMetodoDeNotificacao): TForm;
var
  CriaForm: TFuncaoDeForm;
begin
  LiberaForm;
  FIdentificador := LoadLibrary(PChar(NomeDaDLL));
  if FIdentificador = 0 then
  begin
    ExibeErro(´Não foi possível carregar o arquivo "´ + NomeDaDLL + ´"!´);
    Exit;
  end; // if
  try
    @CriaForm := GetProcAddress(FIdentificador, ´CriaForm´);
    if @CriaForm = nil then
    begin
      ExibeErro(´Não foi possível encontrar a função "CriaForm" no arquivo "´ +
                NomeDaDLL + ´"!´);
      Abort;
    end; // if
    FForm := CriaForm(Application, AcionaTimerDeLiberacao);
    FForm.ShowModal;
  except
    FreeLibrary(FIdentificador);
    FIdentificador := 0;
  end; // try-except
end;

//Usando a procedure
procedure TFormPrincipal.ButtonExibirClick(Sender: TObject);
begin
  ExibeInformacao(´Carregando o módulo, criando o form e exibindo-o...´);
  CarregaFormDe(´ModuloTeste.dll´);
  ExibeInformacao(´Tudo ok.´);
end;

unit AddUnitDPR;

interface
  uses Classes, SysUtils, Forms, StdCtrls, Controls;

type
  TAddUnitDPR = class
  private
    FDPR: string;
    FUnit: string;
    FArquivoDPR: TStringList;
    FFormExibeDPR: TForm;
    FMemoExibeDPR: TMemo;
    procedure SetDPR(const Value: string);
    function Add: boolean;
  public
    constructor Create;
    destructor Destroy; override;

    property DPR: string read FDPR write SetDPR;
    property UnitAdicionar: string read FUnit write FUnit;
    property ArquivoDPR: TStringList read FArquivoDPR;

    function AddUnit(FUnitAdd: string): boolean;
    procedure ExibeDPR;
    procedure SalvaDPR(NomeDoProjeto: string = ´´);
  end;

implementation

{ TAddUnitDPR }

function TAddUnitDPR.Add: boolean;
var
  i, FAdicionarLinha: integer;
  FAcheiUses: boolean;
  FNomeDoArquivo, FNomeDoArquivoSemExtensao, FExtensaoDoArquivo,
  FPastaDoArquivo, FPastaDoProjeto, FConteudoLinha: string;
begin
  FAcheiUses := False;
  FAdicionarLinha := -1;

  FNomeDoArquivo := ExtractFileName(FUnit);
  FExtensaoDoArquivo := ExtractFileExt(FUnit);
  FPastaDoArquivo := AnsiUpperCase(ExtractFilePath(FUnit));
  FPastaDoProjeto := AnsiUpperCase(ExtractFilePath(FDPR));
  FNomeDoArquivoSemExtensao :=
    Copy(FNomeDoArquivo, 1, Length(FNomeDoArquivo) - Length(FExtensaoDoArquivo));

  if FPastaDoArquivo <> FPastaDoProjeto then
    FNomeDoArquivo := FUnit;

  FConteudoLinha := ´  ´ + FNomeDoArquivoSemExtensao +
    ´ in ´ + QuotedStr(FNomeDoArquivo)+´;´;

  for i := 0 to FArquivoDPR.Count-1 do
    if UpperCase(FArquivoDPR[i]) = ´USES´ then
      FAcheiUses := True
    else
    if (Trim(FArquivoDPR[i]) = ´´) and FAcheiUses then
    begin
      FAdicionarLinha := i;
      break;
    end;

  Result := FAcheiUses and (FAdicionarLinha >= 0);

  if Result then
  begin
    FArquivoDPR[FAdicionarLinha-1] :=
      StringReplace(FArquivoDPR[FAdicionarLinha-1], ´;´, ´,´, []);
    FArquivoDPR.Insert(FAdicionarLinha, FConteudoLinha);
  end;
end;

function TAddUnitDPR.AddUnit(FUnitAdd: string): boolean;
begin
  FUnit := FUnitAdd;
  Result := Self.Add;
end;

constructor TAddUnitDPR.Create;
begin
  FArquivoDPR := TStringList.Create;
  FFormExibeDPR := TForm.Create(nil);
  FFormExibeDPR.Width := Trunc(Screen.Width * 0.8);
  FFormExibeDPR.Height := Trunc(Screen.Height * 0.8);
  FFormExibeDPR.Position := poScreenCenter;

  FMemoExibeDPR := TMemo.Create(FFormExibeDPR);
  FMemoExibeDPR.Parent := FFormExibeDPR;
  FMemoExibeDPR.ReadOnly := True;
  FMemoExibeDPR.ScrollBars := ssBoth;
  FMemoExibeDPR.Align := alClient;
end;

destructor TAddUnitDPR.Destroy;
begin
  FFormExibeDPR.Free;
  FArquivoDPR.Free;

  inherited;
end;

procedure TAddUnitDPR.ExibeDPR;
begin
  FMemoExibeDPR.Lines.Assign(FArquivoDPR);
  FFormExibeDPR.Show;
end;

procedure TAddUnitDPR.SalvaDPR(NomeDoProjeto: string);
var
  FstrProjeto: string;
begin
  if NomeDoProjeto <> ´´ then
    FstrProjeto := NomeDoProjeto
  else
    FstrProjeto := FDPR;

  FArquivoDPR.SaveToFile(FstrProjeto);
end;

procedure TAddUnitDPR.SetDPR(const Value: string);
begin
  if FDPR <> Value then
  begin
    FDPR := Value;
    FArquivoDPR.LoadFromFile(FDPR);
  end;
end;

end.

unit uAlterarDPR;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, StrUtils, AddUnitDPR;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Edit2: TEdit;
    Button3: TButton;
    OpenDialog2: TOpenDialog;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    AddUnitDPR: TAddUnitDPR;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddUnitDPR := TAddUnitDPR.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text := OpenDialog1.FileName;
    AddUnitDPR.DPR := OpenDialog1.FileName;

    RichEdit1.Clear;
    RichEdit1.Lines.AddStrings(AddUnitDPR.ArquivoDPR);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog2.Execute then
    Edit2.Text := OpenDialog2.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  AddUnitDPR.AddUnit(Edit2.Text);
  RichEdit1.Lines.Assign(AddUnitDPR.ArquivoDPR);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  AddUnitDPR.ExibeDPR;
end;

end.