很有意思的问题请同学们帮帮忙

以前写的时候没出现此种问题，即编译时没有错误，在运行时，总是告诉我以下一段话，duplicate resources;
type 10 (rcdata),id tform1;以下为我的源代码， 
 
implementation  
{$R  *.dfm}  
var  
   temp:widestring;  
   sqlstr:widestring;  
   chaxun:string;  
   {$R  *.dfm}  
procedure    testdata(query3,query4:TQuery);//query3用于查询，query4用于插入  
   var  
       id:string;//要插入的序列号  
       insertstr:string;  
   begin  
       id:='88855';  
       chaxun:='select  *  from  fpsqh  where  gsm=:xm';  
       insertstr:='insert  into  fpsqh(gsm,zlid)  values(:name,:id)';  
       try  
         query3.First;  
         while  not  query3.Eof  do{从query3中一条条读出数据，然后，用query4有选择的写入另一个表中}  
         begin  
           temp:=trim(query3.FieldByName('primkry').asString);  
           query4.Close;  
           query4.SQL.Clear;  
           query4.SQL.Add(chaxun);  
           query4.Params[0].AsString:=temp;  
           query4.Open;  
         try  
           query4.First;  
 
           if(not  query4.Eof)then  
               begin  
                   query4.Close;  
                   query4.SQL.Clear;  
                   query4.SQL.Add(insertstr);  
                   query4.Params[0].AsString:=temp;  
                   query4.Params[1].AsString:=id;  
                   query4.ExecSQL;  
               end;  
           finally  
                   query4.EnableControls;  
           end;  
           query3.Next;  
         end;  
       finally  
           query3.EnableControls;  
       end;  
   end;  
 
procedure  TForm1.N1Click(Sender:  TObject);  
begin  
   sqlstr:='select  *  from  primkey';  
   query1.Close;  
   query1.SQL.Clear;  
   query1.SQL.Add(sqlstr);  
   query1.open;  
   testdata(query1,query2);    
end;  
 
end.  
请同学们帮帮我，谢谢