locate

Olá pessoal estou com o seguinte problema:
Estou querendo gravar os dados abaixo. Antes de gravar ele verifica usando o ´Locate´ para ver se já existe o registro, ou não. Se não existe ele faz um Insert, senão faz apenas um Edit...
No exemplo abaixo estou querendo gravar a pergunta nº 1 na Fábrica = Matriz.
Mas vou ter outras opções de fábrica para a questão nº1, por exemplo:
Posso ter um registro assim: pergunta nº1, fábrica = Filial1 ou pergunta nº1, fábrica = Filial2. Mas não tá dando certo. Quando é um registro que ainda não existe ele grava certo, mas quando deve gravar um novo faz errado. Alguém pode me ajudar???

if (Pesquisa.Locate(´NumPergunta´, ´1´ ,[]) = false) and (Pesquisa.Locate(´Fabrica´, cbFabrica.Text, []) = false) then begin
Pesquisa.Insert;
Pesquisa.FieldByName(´NumPergunta´).AsString := ´1´;
Pesquisa.FieldByName(´Fabrica´).AsString := cbFabrica.Text;
case rg1.ItemIndex of
-1 : Pesquisa.FieldByName(´Nulo´).AsString := Pesquisa.FieldByName(´Nulo´).Value + 1;
0 : Pesquisa.FieldByName(´Bom´).AsString := Pesquisa.FieldByName(´Bom´).Value + 1;
1 : Pesquisa.FieldByName(´Regular´).AsString := Pesquisa.FieldByName(´Regular´).Value + 1;
2 : Pesquisa.FieldByName(´Ruim´).AsString := Pesquisa.FieldByName(´Ruim´).Value + 1;
end;
end else begin
Pesquisa.Edit;
case rg1.ItemIndex of
-1 : Pesquisa.FieldByName(´Nulo´).AsString := Pesquisa.FieldByName(´Nulo´).Value + 1;
0 : Pesquisa.FieldByName(´Bom´).AsString := Pesquisa.FieldByName(´Bom´).Value + 1;
1 : Pesquisa.FieldByName(´Regular´).AsString := Pesquisa.FieldByName(´Regular´).Value + 1;
2 : Pesquisa.FieldByName(´Ruim´).AsString := Pesquisa.FieldByName(´Ruim´).Value + 1;
end;
end;