Fórum Ação no edit em tempo de execução #236951

Caros amigos tenho este codigo:

Cria os Componentes em tempo de execurção

[color=blue:d4e84aaea5]procedure TForm1.RadioGroup1Click(Sender: TObject);
var
CriaEd : TEdit;
Criapa : TPanel;
Crialistbox: TListBox;
Crialab : TLabel;
begin
if RadioGroup1.itemIndex = 1 then
begin
Criapa := TPanel.Create(Form1);
Criapa.Parent := Form1;
Criapa.SetBounds(60,60,295,180); //1ºL-Esq, 2ºL-Top 3ºL-Dire 4ºL-Baixo
Criapa.DragMode := dmAutomatic;
CriaEd := TEdit.Create(Form1);
CriaEd.Parent := Form1;
CriaEd.SetBounds(75,130,100,20);
CriaEd.DragMode := dmAutomatic;
CriaEd.SetFocus;
Crialistbox := TListBox.Create(Form1);
CriaListBox.Parent := Form1;
CriaListBox.SetBounds(210,70,120,150);
Crialab := TLabel.Create(Form1);
Crialab.Parent := Criapa;
Crialab.SetBounds(08,53,150,20);
Crialab.DragMode := dmAutomatic;
Crialab.Caption := ´Numeros dos cheques´;
end;
end;[/color:d4e84aaea5]

Quando sair do Edit preciso que os valores digitados sejam incluido em um list box e um Array

[color=blue:d4e84aaea5]procedure TForm1.CriaEdExit(Sender: TObject);
var
I:Integer;

begin
for I:=0 to strtoint(Edit1.Text)do
begin
Crialistbox.Items.Add(CriaEd.Text);
end;

end;[/color:d4e84aaea5]

Peço ajuda no sentido de como chamar a procedure OnExit do Edit
e como criar a Array para armazenar os valores, pois o numero de valores depende do numero digitado no edit1.

Agradeço a ajuda