Componente em tempo de execução - help

Pessoal ,estou com um problema..

Criei varios Componentes CheckBox em tempo de execução assim

[b:b61805b7bc]
procedure TForm1.CriaCheckBox(H, W, L, T, Nome : Integer; Capt : String);
var Check : TCheckBox;
begin
Check := TCheckBox.create(Application);
with Check do
begin
Parent := Form1;
height := H;
width := W;
caption := Capt;
left := L;
top := T;
Name := ´CheckBox´ + IntToStr(Nome);
end;
end;
[/b:b61805b7bc]

Até ai tudo bem, mas preciso que ao clicar num botão seja
mostrado quantos checkbox o cliente marcou. É ai que ta o problema,
usando o comando abaixo esses esses componentes criados não apareçem, só os que eu coloquei em tempo de projeto.

[b:b61805b7bc]
procedure TForm1.BitBtn1Click(Sender: TObject);
var n : LongInt;
begin
for n := 0 to Form1.ComponentCount - 1 do
begin
if (Form1.Components[n] is TCheckBox) then
begin
if TCheckBox(Form1.components[n]).Checked = True then
begin
*
*
*
*
end;
end;
end;
end;

[/b:b61805b7bc]
Tem como fazer esses componentes criados aparecerem no comando acima, sei lá alguma propriedade ao criá-los.
Alguem pode me ajudar?

Obrigado .