Problema com Laço

procedure Table2Thread.UpdateStatus;
Var
X: Integer;
Valor: String;
Corretora,Compras,MCompras,PercCompras,Vendas,MVendas,PercVendas,PLiquida,MLiquida : array[0..200] of String;
Ac: String;
begin
Ac := FStock.getAcoes;
FLabel.Caption := FStock.getTitulo + #32 + ´Ações: ´ + Ac;
FList.Items.Clear;
for X := 0 to FStock.getMax do
begin
if (Trim(FStock.getDados(X,1)) <> ´´) then
begin
if (FBox.Checked[X]) then
with FList.Items.Add do
begin
Caption := FStock.getDados(X,1);
SubItems.Add(FStock.getDados(X,2));
SubItems.Add(FStock.getDados(X,3));
SubItems.Add(FormatPercent(Percent2(NoDot(Ac),NoDot(FStock.getDados(X,2)))));
SubItems.Add(FStock.getDados(X,4));
SubItems.Add(FStock.getDados(X,5));
SubItems.Add(FormatPercent(Percent2(NoDot(Ac),NoDot(FStock.getDados(X,4)))));
SubItems.Add(FStock.getDados(X,6));
SubItems.Add(FStock.getDados(X,7));
end;
end;
end;
end;

o que esta acontecendo ai éh o seguinte, estou a 3 dias martelando esse looping e nao consigo encontrar meu erro, ele ja foi bem + complexo, to eliminando coisas pra axar uma linha de raciocinio.
tenho um vetor de strings grande, queria eliminar dados dele caso ele nao esteje marcado na checklistbox...
so q ainda caso ele nao esteje no array ´mestre´ mas esteje na checkbox marcado, exibir o nome dele e seus dados como zero..
se alguem poder me da uma força aew agradeço desde já..

PS: ele possuia 2 for, retirei um pois ele estava ocultando valores..
mas deverei fazer ele com 2 for, eh a unica forma de fazer isto