Componente em Tempo de Execução (Contar/Gravar)

Olá.
Vejam o meu problema: criei um form em tempo de execução, neste, montei uma rotina para adicionar CheckBox de acordo com a quantidade de campos da tabela.
Até ae, tudo bem...
vejam o código :

var I : SmallInt;
Esquerda, Topo, Linha : Integer;
MyCheckBox : TCheckBox;
begin
Esquerda := 1;
Topo := 1;
Linha := 1;
for I := 0 to DMod.TbCliente.FieldCount - 1 do
begin
MyCheckBox := TCheckBox.Create(Self.Owner);
MyCheckBox.Name := ´MyCh´ + IntToStr(I);
MyCheckBox.Caption := DMod.TbCliente.Fields[I].DisplayName;
MyCheckBox.Parent := Self;
MyCheckBox.Left := Esquerda;
MyCheckBox.Top := Topo + Linha * 15 - 14;
MyCheckBox.Width := 180;
MyCheckBox.Font.Color:= clWhite;

Inc(Linha);

if MyCheckBox.Top > (Self.Height - 65) then
begin
Inc(Esquerda, 150);
Topo := 1;
Linha := 1;
end;

end;
end;

Agora, eu gostaria de gravar os CheckBox que foram marcados (checked).
montei a rotina :

var F : TextFile;
I : Smallint;
begin
AssignFile (F, ´c:\teste.txt´ );
Rewrite(F);

for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TCheckBox then
if TCheckBox(Components[I]).Checked then
begin
Write(F, TCheckBox(Components[I]).Caption);
WriteLn(F);
end;
end;
CloseFile(F);
Close;
end;


*** Não funciona.

Descobri o porque, mas não sei como resolver. Fazendo testes, descobri que se criar componentes em tempo de execução, como foi o caso, a propriedade ´ComponentsCount´ não os reconhece.

Alguém pode ajudar à solucionar este problema ?

Grato
Cleber
ICQ : 85616758. :roll: