POO x Arquivo Txt

Amigos,
Estou meio desesperada!
Tenho um código que não estou conseguindo fazer... é o seguinte... tenho uma classe e gostaria de carregar um arquivo txt nela e depois somente gravar os objetos q me fossem filtrados por uma tela. Por exemplo: Desejo gravar somente os objetos do dia 1 ao 10.

ME AJUDEM POR FAVOR! ESTOU PARANÓICA :shock:


Segue o meu código

LISTAMOVIMENTO = CLASS(TLIST)

var TXT:TextFile;
Entrada,DIA_MOV,DIA_MOV2:String;
I:Integer;
movimentoe:Tmovimento;
movimentoi:Tmovimento

Begin
AssignFile(TXT,caminho);
movimentoe:=TMovimento.Create;
data_server.BD_DIARIO.Connected:=true;
data_server.TAB_EXP.Active:=true;
data_server.TAB_EXP.DisableControls;

INDICE_EXP:=1;

Reset(TXT);
While not EOF(TXT) do
Begin
While not Eoln(TXT) do
Begin
Readln(TXT,entrada);
// ADICIONANDO UM OBJETO

movimentoe.Indice:=INDICE_EXP;
movimentoe.ANO:=Copy(Entrada,01,04);
movimentoe.MES:=Copy(Entrada,05,02);
movimentoe.DIA:=Copy(Entrada,07,02);
movimentoe.CO_NCM:=Copy(Entrada,09,08);
movimentoe.CO_PAIS:=Copy(Entrada,17,03);
movimentoe.CO_TIPO_OPER:=Copy(Entrada,20,01);
movimentoe.CO_OPER:=Copy(Entrada,21,14);
movimentoe.CO_PORTO:=Copy(Entrada,35,04);
movimentoe.CO_UF:=Copy(Entrada,35,04);
movimentoe.CO_VIA:=Copy(Entrada,41,01);
movimentoe.CO_UNID:=Copy(Entrada,42,02);
movimentoe.QTDE:=StrToFloat(Copy(Entrada,44,13));
movimentoe.PESO:=StrToFloat(Copy(Entrada,57,13));
movimentoe.VALOR_FOB:=StrToFloat(Copy(Entrada,70,13));

LISTAMOVIMENTO.Add(TMOVIMENTO);

INDICE_EXP:=LISTAMOVIMENTO.Count-1;
end;
end;
closefile(TXT);
FORM_DEF_MOV.ShowModal;
// GRAVAÇÃO NA TABELA

[i:941908cfa3]Título em maiúsculas editado. Procure ser mais sóbria. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=2b99086566d83acbd91b8a508ca13ae6][u:941908cfa3]Regras de Conduta[/u:941908cfa3][/url]. (marcelo.c - Moderador)[/i:941908cfa3]