Fórum Laço em tabela paradox #442535

Amigo,

Estou precisando rodar o "laço" abaixo, para copiar os dados entre duas tabelas em mparadox. A origem de dados é a tabela qFreq1StaCeia_O (ordenada por nome) a destino é qMembros (natural [sem ordem]).
Esta existindo um erro que mão estou conseguindo achar, uma vez que quando executada trava.

Podem me ajudar?


procedure TTeste_de_Rotinas.Button1Click(Sender: TObject);
begin
Dtm_Secre.qMembros.Open;
Dtm_Secre.qFreqStaCeia_O.Open;
Dtm_Secre.qFreqStaCeia_O.First;
While NOT Dtm_Secre.qFreqStaCeia_O.Eof do;
begin
Dtm_Secre.qMembros.Locate('NOME',Dtm_Secre.qFreqStaCeia_ONOME.AsString,[Lopartialkey,Locaseinsensitive]);
ShowMessage(Dtm_Secre.qMembrosNOME.AsString);
Dtm_Secre.qMembros.Edit;
Dtm_Secre.qMembrosSc01.AsString := Dtm_Secre.qFreqStaCeia_OST01.AsSTring;
Dtm_Secre.qMembrosSc02.AsString := Dtm_Secre.qFreqStaCeia_OST02.AsSTring;
Dtm_Secre.qMembrosSc03.AsString := Dtm_Secre.qFreqStaCeia_OST03.AsSTring;
Dtm_Secre.qMembrosSc04.AsString := Dtm_Secre.qFreqStaCeia_OST04.AsSTring;
Dtm_Secre.qMembrosSc05.AsString := Dtm_Secre.qFreqStaCeia_OST05.AsSTring;
Dtm_Secre.qMembrosSc06.AsString := Dtm_Secre.qFreqStaCeia_OST06.AsSTring;
Dtm_Secre.qMembrosSc07.AsString := Dtm_Secre.qFreqStaCeia_OST07.AsSTring;
Dtm_Secre.qMembrosSc08.AsString := Dtm_Secre.qFreqStaCeia_OST08.AsSTring;
Dtm_Secre.qMembrosSc09.AsString := Dtm_Secre.qFreqStaCeia_OST09.AsSTring;
Dtm_Secre.qMembrosSc10.AsString := Dtm_Secre.qFreqStaCeia_OST10.AsSTring;
Dtm_Secre.qMembrosSc11.AsString := Dtm_Secre.qFreqStaCeia_OST11.AsSTring;
Dtm_Secre.qMembrosSc12.AsString := Dtm_Secre.qFreqStaCeia_OST12.AsSTring;
Dtm_Secre.qMembros.Post;
Dtm_Secre.qFreqStaCeia_O.Next;
end;
ShowMessage('terminado!');
ShowMessage(Dtm_Secre.qFreqStaCeia_ONOME.aSsTRING);
end;