Problemas com migração

Caros colegas,
Estou migrando dados p/uma tabela e estou tendo o seguinte problema: Existem 2 tabelas, Registro (Cliente) e Produtos, um cliente pode ter mais de 1 produto cadastrado. Na hora de migrar os dados (que estão em uma StringList) p/tabela eu verifico se o cliente já existe e caso positivo, eu migro só os dados da tabela produto p/esse cliente. O problema é q na migração, está ocorrendo de os dados novos serem copiados por cima dos dados antigos. Eu vizualizo os dados através de um DBGrid. O código está assim:

TControle1.TableName := ´Registro´;
TControle1.Open;
TControle1.Locate(´CODIGO´, QyPesquisa.FieldByName (´Codigo´).AsString,
[loCaseInsensitive]);
Cod_Cli:= TControle1.FieldByName(´Codigo´).AsString;
TControle1.Close;

TControle1.TableName := ´Produto´;
TControle1.Open;
TControle1.Edit;

TControle1.FieldByName(´Cod_Cli´).AsString := Cod_Cli;
TControle1.FieldByName(´Representante´).AsString := Arquivo[0];
TControle1.FieldByName(´N_Pedido´).AsString := Arquivo[1];
TControle1.FieldByName(´Data_Pedido´).AsString := Arquivo[70];
...

Como resolver isso?
Desde já agradeço.
[]´s.