Importar Arquivo Texto com Parâmetros

Boa Tarde pessoal do Forum.

Estou com uma dúvida, já tentei de varias maneiras mas não consegui...

Meu problema é o seguinte, preciso importar um arquivo texto para um banco access. mas com um parametro...

Tenho uma tabela de Paletes, já populada, quando eu colocar para importar o arquivo de texto ele tem que comparar o cod.do palete da tabela com o cod.do palete que esta no arquivo texto, pois quero que ele só importe paletes não registrados na tabela e descarte os já registrados.

Fiz o seguinte

procedure TfrmPalete.Button1Click(Sender: TObject);
begin
if dloAbrir.Execute then
Edit1.Text := dloAbrir.FileName;
end;

procedure TfrmPalete.Button5Click(Sender: TObject);
var TXT: TextFile;
Entrada: String;
begin
AssignFile(TXT,Edit1.Text);
Reset(TXT);
While not EoLn(TXT) do Begin
ReadLn(TXT,Entrada);
if dmPrincipal.qryPaletesPLTE_CD_BARRA.Value = Copy(Entrada,01,15) then begin
dmPrincipal.qryPaletes.Insert;
dmPrincipal.qryPaletesPLTE_CD_BARRA.Value:= Copy(Entrada,01,15);
dmPrincipal.qryPaletesPLTE_SISTEMA.AsString:= Copy(Entrada,16,01);
dmPrincipal.qryPaletesPLTE_PESO.AsFloat:= (StrToFloat(Copy(Entrada,17,10)));
.
.
.
E por aí vai, mas quando eu clico em importar, ele dá erro de duplicação de chave primaria.
Para testar as procedures, eu apaguei todo o conteudo da tabela, e tirei o ´ IF ´ que esta na procedure, com isso consegui importar numa boa.
Alguém poderia me ajudar com esse problema? Faz pouco tempo que trabalho com Delphi e ainda tenho muita dificuldade.
Desde ja agradeço a todos

Breno

e-mail: BAMPavao@editorasaraiva.com.br