[Delphi]Criando um Instalador pra seu programa!

Oi galera,
Primeiro vc precisara dos seguintes componentes:

1 Button para Instalar
1 Edit para selecionar o Diretório
1 XPManifest(opcional)

Mude o Caption do Button1 para Instalar
Vc precisara criar um diretorio para seu programa
e tambem criar um resource do arquivo que vc quer instalar =D

1) Criando um novo diretório

Para criar um novo diretório, use este codigo:
Citação:
ForceDirectories('Seu diretório aki');
Exm:ForceDirectories('C:\Teste');
Vc tmb pode criar uma sub pasta dentro do diretório
Ficara assim:
Citação:
ForceDirectories('C:\Teste');
ForceDirectories('C:\Teste\ABC');
ForceDirectories('C:\Teste\ABC\123');

2) Criando um Resource(.res) para o Setup

Suponhamos que vc quer fazer uma res de um Executavel(.exe)
Comece criando um Documento de texto no Bloco d notas
Dai nele escreva assim
Citação:
Nome do Programa Extensão Diretório do Arquivo
Exm: Exemplo EXE C:\Exemplo.EXE
Dai, salve isso com a extesão .**
Dps diso, copie o arquivo .**
Va na sua pasta delphi, na Pasta Bin
Tem um programa la com o nome de Brcc32
Cole o arquivo .** nessa pasta e arraste-o para cima do Brcc32
Se tudo der cert, um arquivo sera criado, só q com o extensão .res
Pegue este arquivo .res e cole na pasta do seu projeto.
Volte para o Delphi.
Adicione esta variavel no Button1:
Citação:
var
Arq: TResourceStream;
E coloque este codigo tambem este codigo no Button1:
Citação:
Arq:= TResourceStream.Create(HInstance, 'Aki o nome do arquivo', 'Akia extensão dele');
try
Arq.SaveToFile(Edit1.Text+'\Aki o nome do arquivo') ;
finally
Arq.Free;
end;
end;
Agora vamos declarar o arquivo.res
Procure uma linha, onde esteja escrito {$R *.dfm}
abaixo dela,escreva assim
Citação:
{$R *.dfm}
{$R Nome di arquivo.res
Exm:{$R *.dfm}
{$R Programa.res}
Execute e Pronto =D
Qualquer duvida, poste - aki
+ Pra frente irei adicionar uma imagens

E mais uma coisa
Este Setup não cria nenhum registro do programa instalado e etc...
Apenas cria o programa