if not quZMirror.Locate('CardNumber;FirstName;SecondName;ThirdName',
                 vararrayof([quParsec.FieldByname('CardNumber').AsInteger,
                             quParsec.FieldByname('FirstName').AsString,
                             quParsec.FieldByname('SecondName').AsString,
                             quParsec.FieldByname('ThirdName').AsString]),[]) then
      begin
        quZMirror.Insert;
        quZMirror.FieldByName('CardNumber').value := quParsec.FieldByName('CardNumber').value;
        quZMirror.FieldByName('FirstName').value := quParsec.FieldByName('FirstName').value;
        quZMirror.FieldByName('SecondName').value := quParsec.FieldByName('SecondName').value;
        quZMirror.FieldByName('ThirdName').value := quParsec.FieldByName('ThirdName').value;
        quZMirror.Post;
     end;

  while not quParsec.eof do begin
  ...
  end;