I need a help to Chang the value of a field in the setText event

Hello Guys

I have a dbgrid linked to an adoquery

My first field is a text that gets a prod codi, like this:  ' 9T5086'


I have a table named ChangeCodeNew, this table has two main field.

OldCode and NewCode

After entering the code in my column,  I need to seek this code in that table.
 If the code is in the table I need to change it to new code.
My question is:

Is the event setText suitble to do this once that my code needs to be changed after entering it.

With my code I notice that after replacing the oldcode to newcold, the function is called again,
making another seeking in my table.

I appreciated any clue
thanks

procedure TFItensnovos.Q_Produtoanalisepro_codiSetText(Sender: TField; const Text: String);
Var
  Sit, newcode : string;
begin
  prodnovo := text
  With Dtm_BaseDados1.wwQ_DePara do begin
     Close;
     SQL.Clear;
     SQL.Add('Select * from SIAPDPA');
     SQL.Add('Where PDP_PANT = '+''''+newcode +'''');
     Open;
  End;
 
  If Dtm_BaseDados1.wwQ_DePara.RecordCount > 0 Then Begin
     newcode := Dtm_BaseDados1.wwQ_DePara.FieldByName('PDP_PNOV').AsString;
     MessageDlg('Produto "' + Text + '" é o código antigo do produto.' + Chr(13) + 'It will be replaced by current code. [ ' + newcode + ' ]', MtInformation, [mbOK], 0);
     Q_Produtoanalisepro_codi.AsString := newcode ;
  End;
End;

Select allOpen in new window