Validar insercion en BD con tquery

[[Caral]]

Hola
A ver asi:

Código Delphi [-]
procedure TForm1.BitBtnAPGuardarClick(Sender: TObject);
begin
query2.SQL.Text := 'select * from tevaluacion where eval_descripcion= :Nom';
query2.ParamByName('Nom').AsString:= ednombre.text;
query2.Open;
     If query2.Fields[0].AsString = ednombre.text then
     begin
     MessageDlg('El nombre de la evaluacion ya existe','Error de entrada',mtError,[mbOK],0);
     ednombre.SetFocus;
     query2.Close;
end
else
begin
   query2.sql.clear;
   query2.sql.add('insert into det_evaluacion(det_eval,det_version,det_clave,det_pregunta,det_tipo,det_valor)');
   query2.sql.add('values(:det_eval,:det_version,:det_clave,:det_pregunta,:det_tipo,:det_valor)');
   query2.ParamByName('det_eval').AsString:=evalua;
   query2.ParamByName('det_version').AsString:=edversion.text;
   query2.ParamByName('det_clave').AsString:=edclave.text;
   query2.ParamByName('det_pregunta').AsString:=edpregunta.text;
   query2.ParamByName('det_tipo').AsString:=edtipo.text;
   query2.ParamByName('det_valor').AsString:=edvalor.text;
   query2.execsql
   edversion.Clear;
   edclave.Clear;
   edpregunta.Clear;
   edtipo.Clear;
   edvalor.clear;
   application.messagebox('Los datos se guardaron correctamente','Mensaje de confirmación',mb_OK+mb_IconInformation);
    LlenarGridPreguntas(sender);
end;
end;

Saludos