[esimon]

esto es lo que estoy haciendo

procedure TFrm_Organizaciones.Tbl_OrganizacionesCodigo_OrganizacionChange(
  Sender: TField);
  var ls_CodigoOrganizacion : string;
begin
      ls_CodigoOrganizacion := Tbl_Organizaciones.fieldbyName('Codigo_Organizacion').Value;
      Qry_ValidarCodigoOrganizacion.Close;
      with
      Qry_ValidarCodigoOrganizacion do begin
      with sql do begin
      clear;
      Add('Select * From Organizaciones');
      Add('Where Codigo_Organizacion =' +intTostr(ls_CodigoOrganizacion));
      Open;
      if Recordcount <> 0 then
      begin
      ShowMessage('Este Registro ya Existe');
      Abort;
      end;
     end;
    end;